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FIRST RELEASE 

CORRECTIONS MADE TO: 

i. CORRECT VECTOR AREA MAINTENANCE PROBLEM 

2. PREVENT $TESTN FROM GETTING OUT OF SYNC WHEN 
SKIPP"NG DESELECTED TESTS. 


= TURN CACHE MEMORY SYSTEM OFF DURING NON-CACHE TESTS. 


. ENSURE THAT CPU ERROR REGISTER IS CLEARED AFTER 
COMPLETION OF TEST THAT MIGHT CAUSE IT TO BE SET. 
5. SAVE PC AND CONTENTS OF R6 ON UNEXPECTED INTERRUPIS 


ADDITIONAL TESTS Tu IMPROVE TEST COVERAGE INCLUDE: 
1. NON-EXISTANT MEMORY TRAP TEST 


SEQ 9002 
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80 
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82 

o 1.0 GENERAL INFORMATION 

= 1.1 PROGRAM ABSTRACT 

87 THIS IS AN APT COMPATIBLE VERSION OF THE KDJ11 MEMORY MANAGEMENT 
88 DIAGNOSTIC. IT FOCUSES ON TESTING THE FUNCTIONALITY OF THE MEMORY 
89 MANAGEMENT FEATURES. THE TEST REQUIRES 4 MEGABYTES OF QBUS 

90 MEMORY TO FULLY TEST THE MMU ADDER. A SUBSET OF THE ADDER IS 

91 TESTED IF LESS THAN 4 MEGABYTES OF MEMORY IS AVAILABLE 

92 (MINIMUM OF 28 KBYTES). IN ADDITION; FOR TESTING IN 

93 QBUS SYSTEMS WITH ONLY 186 ADDRESS BITS, A MEANS IS PROVIDED TO 
“3g SKIP TESTS WHICH REQUIRE 22 BIT ADDRESSES. THIS FEATURE IS 

95 IMPLEMENTED BY SETTING BIT O08 IN THE SOFTWARE SWITCH REGISTER 

be (LOCATION 176) TO A ONE. DEFAULT IS TO TEST 22 BIT ADDRESSES. 

ha 1.2 SYSTEM REQUIREMENTS 

100 KDJ11-A PROCESSOR MODULE 

101 ENSURE THAT HALT TRAP OPTION IS DISABLED (JUMPER W9 INSTALLED) 
102 32KW MEMORY 

103 Q-22 BACKPLANE (18 BIT QBUS MAY BE USED WITH REDUCED TEST COVERAGE) 
io SERIAL LINE UNIT AND CONSOLE TERMINAL (CONSOLE TERMINAL NOT REQUIRED FOR APT ) 
9 1.5 RELATED DOCUMENTS AND STANDARDS 

108 KOJ11-A MODULE SPECIFICATION REV 2.2 

109 PDP11 MAINDEC SYSMAC PACKAGE 

110 Ji11 CONTROL CHIP SPECIFICATION 21-17679-00 

+P J11 DATA CHIP SPECIFICATION 21-17677-00 

er 1.4 OIAGNOSTIC HIERARCY PREREQUISITES 

115 THE KDJ11 CPU DIAGNOSTIC MUST RUN SUCCESSFULLY PRIOR 

tt TO RUNNING THE MEMORY MANAGEMENT TEST. 

et 1.5 ASSUMPTIONS 

120 IT IS ASSUMED THAT THE DIAGNOSTIC OPERATOR IS FAMILIAR WITH 

gt THE XXDP+ OPERATING SYSTEM AND THE J11 MICRO-ODT. , 

= 2.0 OPERATING INSTRUCTIONS 

< 2.1 LOADING AND STARTING PROCEEDURE 

le7 LOAD PROGRAM INTO MEMORY USING STANDARD XXxDP+ PROCEEDURES. 

128 THE PROGRAM IS STARTED BY LOADING ADDRESS 200 AND USING 

129 THE J11 MICRO-ODT TO START. THE 

130 IDENTIFICATION MESSAGE WILL BE TYPED AFTER THE FIRST PASS 

ee OF THE COMPLETE PROGRAM. 

133 2.2 PROGRAM OPTIONS 


Fi 
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135 THE FOLLOWING ASSIGNMENTS HAVE BEEN MADE FOR THE KDJ11-A 
133 DIAGNOSTIC SWITCH REGISTER BITS: 
138 BITe15 14 13 12 11 10 9 8 
139 O------ @------- @------- O--e ese @-------- @------- @----+--- @------.- 8 
140 DON’ T 18 BIT EXTENDED 
141 TEST ADDRESS CACHE 
142 BEVENT ONL Y TESTS 
143 a------- @------- #------- @------- @-------- @------- @------- #------- * 
144 
145 DEFAULT SETTINGS ARE TO TEST 22 BIT ADDRESSES. THE OTHER BITS HAVE 
147 NO £FFECT ON THE OPERATION OF THE PROGRAM. 
148 PRIOR TO EXECUTING THE FIRST PASS OF THE DIAGNOSTIC THE OPERATOR 
149 WILL BE DIRECTED TO SET THE SWITCH REGISTER TO INDICATE WHETHER 
i150 THE KDJ11-A UNDER TEST IS IN A SYSTEM CONFIGURED FOR 18 OR 22 BIT 
151 ADDRESSING. AN 18 BIT ADDRESS CONFIGURATION SHOULD BE INDICATED IF 
152 ANY 18 ADDRESS BIT ONLY MEMORY BOARDS RESIDE IN THE SYSTEM OR IF 
ons THE SYSTEM BACKPLANE DOES NOT SUPPORT 22 ADDRESS BITS. 
155 TO CHANGE THE SWITCH REGISTER; HALT THE PROGRAM, AND EITHER RESTART 
156 THE PROGRAM AT 200 ANSWERING THE INITIAL QUESTIONS, OR LOAD THE 
157 SOFTWARE SWITCH REGISTER (ADDRESS 176) WITH THE DESIRED OPTIONS AND 
ozo RESTART THE PROGRAM USING THE J11 MICRO-ODT P COMMAND. 
ae 2.53 OPERATION UNDER APT 
162 THERE ARE NO DIFFERENCES IN THE EXECUTION OF THIS DIAGNOSTIC 
163 WHEN OPERATING IN AN APT ENVIRONMENT. PROBLEMS CAUSED BY THE 
164 ASYNCHRONOUS HALTS OF THE DIAGNOSTIC BY THE APT MONITOR HAVE 
165 NOT BEEN NOTED. 
166 
167 
ye 3.0 ERROR INFORMATION 
oF ERRORS WILL CAUSE THE FOLLOWING ERROR MESSAGE TO BE PRINTED: 
172 ERROR DURING MMU TESTING 
175 ERROR & = (UNIQUE ERROR NUMBER) 
pe ERROR PC = (PC AT TIME OF ERROR) 
176 THE ERROR WILL THEN BE REPORTED TO APT AND THE PROGRAM 
pe WILL HALT. 
aoe 4.0 PROGRESS REPORT 
as AT THE END OF EACH PASS THE DIAGNOSTIC NAME AND PASS COUNT ARE PRINTED. 
183 € 
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- TITLE PROGRAM HEADER AND TABLES 
-SBTTL PROGRAM HEADER 


-MCALL NEWTST,ERRDEF, .EQUAT, .KT11,.$40CAT,.SEOP, . $APTBLS. SETUP 
-MCALL .$TYPE,.$TYPDEC,ERRDF ,BGNTST,ENDTST .BGNMOD,ENDMOD .CKLOOP 
-MCALL .HEADER, .SETUP,.$TRAP,BGNSUB,ENDSUB, .$ACT11.. $APTHDR 
.MCALL .$APTYPE,.SERROR,.$TYPOCT, . $READ 


-TITLE «DJ11-A MEMORY MANAGEMENT DIAGNOSTIC 

:*COPYRIGHT (C) MARCH, 1984 

;*DIGITAL EQUIPMENT CORP. 

;*#MAYNARD, MASS. 01754 

3% 

;* 

3#THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
;*PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 


$SWR= 160000 ;;HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOQUT 


SEQ 9006 


GLOBAL AREAS 
KDJI1A. MAC 


001000 


177776 


177774 
177772 
177570 
177570 
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- TITLE GLOBAL 


. SBTTL 


mp 


AREAS 
GLOBAL EQUATES SECTION 


; THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
; ARE USED IN MORE THAN ONE TEST. 


* SBTTL BASIC DEFINITIONS 
s*INITIAL ADDRESS OF THE STACK POINTER «e« 1000 sas 


STACK = 


-EQUIV EMT,ERROR 
-EQUIV IOT,SCOPE 


ee DEFINITIONS 
HT 


1000 


;;BASIC DEFINITION OF ERROR CALL 
;sBASIC DEFINITION OF SCOPE CALL 


;;CODE FOR HORIZONTAL TAB 

;:;CODE FOR LINE FEED 

;;CODE FOR CARRIAGE RETURN 

;;CODE FOR CARRIAGE RETURN-LINE FEED 
;;PROCESSOR STATUS WORD 


;sSTACK LIMIT REGISTER 

;s;PROGRAM INTERRUPT REQUEST REGISTER 
; sHARDWARE SWITCH REGISTER 

; sHARDWARE DISPLAY REGISTER 


saat atta REGISTER DEFINITIONS 


3; sGENERAL REGISTER 
; sGENERAL REGISTER 
; sGENERAL REGISTER 
; sGENERAL REGISTER 
; ;GENERAL REGISTER 
; sGENERAL REGISTER 
; ;GENERAL REGISTER 
; sGENERAL REGISTER 
33STACK POINTER 

: sPROGRAM COUNTER 


LEVEL DEFINITIONS 


:;sPRIORITY LEVEL 
;sPRIORITY LEVEL 
s;sPRIORITY LEVEL 
;;PRIORITY LEVEL 
ssPRIORITY LEVEL 
s;sPRIORITY LEVEL 
:sPRIORITY LEVEL 
;sPRIORITY LEVEL 


NOUS Wr O 


3#"SWITCH REGISTER” SWITCH DEFINITIONS 
SW15= 100000 


LF = 12 

CR= 15 

CRLF = 200 

PS= 177776 
-EQUIV PS,PSW 
STKLMT= 177774 

PIRQ= 177772 

DOSWR= 177570 

DDISP= 177570 
0 

Ri= 1 

Ro= Be 

R3= 63 

R4= 64 

RS= &5 

R6= 86 

R7= 67 

SP= 6 

PC= 67 
;*PRIORITY 
PRO= 0 
PRi= 40 
PR2= 100 

PR3= 140 
PR4= 200 
PRS= 240 
PR6= 300 
PR7= 340 
Swi4= 40000 
SW13= 20000 
SWl2= 10000 
SW1l- 4000 
SW10- 2000 
SWO9= 1000 


SEQ 9007 


imi 
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262 000400 SWOS= 400 
263 000200 SWO7= 200 
264 000100 SWO6- 100 
265 000040 SWOS= 40 
266 000020 SWO4= 20 
267 000010 SWO3= 10 
268 000004 SWO2= 4 
269 000002 SWO1= 2 
270 000001 SWOO= 1 
271 -EQUIV SWO9,SW9 
272 -EQUIV SWO8,SW8 
273 -EQUIV SWO7,SW7 
274 -EQUIV SWO6,SW6 
275 -EQUIV SWOS,.SW5 
276 -EQUIV SWO04,SW4 
277 -EQUIV SWO3,SW3 
278 -EQUIV SWO2,SW2 
279 -EQUIV SWO1,SW1 
ory -EQUIV ° 
282 ;*DATA BIT DEFINITIONS (BITOO TO BIT1IS) 
283 100000 BIT1i5= 100000 
284 040000 BIT14= 40000 
285 020000 BIT13= 20000 
286 010000 BITi2= 10000 
287 004000 BIT1i1= 4000 
288 002000 BIT10= 2000 
289 001000 BITO9= 1000 
290 000400 BITO8= 400 
291 000200 BITO7= 200 
292 000100 BITO6= 100 
293 000040 BITOS= 40 
294 000020 BITO4= 20 
295 000010 BITO3S= 10 
296 000004 BITO2= 4 
297 000002 BITO1l= 2 
298 000001 BITOO= 1 
299 -EQUIV B8ITO9,BITS 
300 -EQUIV BITO8,BITS 
301 -EQUIV BITO7,BIT7 
302 -EQUIV BITO6,BIT6 
303 -EQUIV 8ITOS,.BITS 
304 -EQUIV BITO4,BIT4 
305 -EQUIV BITO3,8IT3 
306 -EQUIV BITO2,BIT2 
307 -EQUIV 8ITO1,BIT1 
eo -EQUIV BITOO,BITO 
310 ;*BASIC “CPU” TRAP VECTOR ADDRESSES 
311 ERRVEC= 4 33TIME OUT AND OTHER ERRORS 
312 000010 RESVEC= 10 ;sRESERVED AND ILLEGAL INSTRUCTIONS 
313 000014 TBITVEC=14 s3"T" BIT 
314 000014 TRTIVEC= 14 :: TRACE TRAP 
315 000014 BPTVEC= 14 ; sBREAKPOINT TRAP (8PT) 
316 000020 IOTVEC= 20 ss INPUT/OUTPUT TRAP (CIOT) eeSCOPE ss 
317 000024 PWRVEC= 24 ;sPOWER FAIL 
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000250 


177572 
177574 
177576 
i72516 


177600 
177602 
177604 
177606 
177610 
177612 
177614 
177616 


177620 
177622 


20-MAR -84 1:31 PAGE 
BASIC DEFINITIONS 


EMTVEC= 30 
TRAPVEC =34 
TKVEC= 60 
TPVEC= 64 
PIRQVEC=240 


J1 


; sEMULATOR ar (EMT) esERRORes 
3; “TRAP” TRA 
s31TY KEYBOARD VECTOR 
pik PRINTER VECTOR 
PROGRAM INTERRUPT REQUEST VECTOR 


.SBTTL MEMORY MANAGEMENT DEFINITIONS 


;#KT11 VECTOR ADDRESS 


MMVEC= 250 


s#KT11 STATUS REGISTER ADDRESSES 


SRO= 177572 
SR1i= 177574 
SR2= 177576 
SR3= 172516 


s#USER “I” PAGE DESCRIPTOR REGISTERS 


UIPOR7= 177616 


s*USER “D” PAGE DESCRIPTOR REGISTORS 


UDPDRO= 177620 
UDPDR1= 177622 








UDPDRe = 
UDPORS= 177626 


UDPDR4= 177630 
UDPORS= 177632 







UDPOR6 = 
UDPDOR7= 177636 


s#USER “I” PAGE ADDRESS REGISTERS 


UIPARO= 177640 
UIPARI= 177642 
UIPAR2= 177644 
UIPARS= 177646 
UIPAR4= 177650 
UIPARS= 177652 
UIPAR6= 177654 
UIPAR7= 177656 


;*USER “D” PAGE ADDRESS REGISTERS 


UDPARO= 177660 
UDPAR1= 177662 
UDPAR2= 177664 


SEQ 9009 


GLOBAL AREAS 
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177666 
177670 
177672 
177674 
177676 


172216 


172220 


172236 


172240 


(1052) 20-MAR-84 
:19 ME 


UDPAR3= 
UDPAR4 = 
UDPARS = 
UDPAR6 = 
UDPAR7= 


177666 
177670 
177672 
177674 
177676 


;*SUPERVISOR “I” 


172200 
172202 
172204 
172206 
172210 
172212 
172214 
172216 


;*SUPERVISOR “D” 


172276 


Kl 
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PAGE DESCRIPTOR REGISTERS 


PAGE DESCRIPTOR REGISTERS 


PAGE ADDRESS REGISTERS 


PAGE ADDRESS REGISTERS 


s*KERNEL “I” PAGE DESCRIPTOR REGISTERS 


KIPDRO= 
KIPOR1= 
KIPOR2= 
KIPDR3= 


172300 
172302 
172304 
172306 


SEQ 9010 


GLOBA:. 
KDJ11A.MAC 
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172310 
172312 
172314 
172316 


177746 
177744 
177752 
177766 





Le 
11:31 


PAGE 11 
MORY MANAGEMENT DEFINITIONS 


KIPDOR4= 172310 
KIPDRS= 172312 
KIPDR6= 172314 
KIPDR7= 172316 


;*KERNEL “D” PAGE DESCRIPTOR REGISTERS 






;#KERNEL “I” PAGE ADDRESS REGISTERS 


KIPARO= 172340 
KIPAR1= 172342 
KIPAR2= 172344 
KIPAR3= 172346 
KIPAR4= 172350 
KIPARS= 172352 
KIPAR6= 172354 
KIPAR7= 172356 


KOPAR6= 172374 
KDPAR7= 172376 


Pa paag — FLOATING POINT ACCUMULATOR EQUATES 


AC1i= #1 

AC2= #2 

AC3= 63 

AC4= BS 

ACS= 85 

AC6= #6 

AC7= &7 

FPVEC= 244 

; THESE ARE CACHE REGISTER EQUATES 

CCR= 177746 sCACHE CONTROL REGISTER 
MSER= 177744 sMEMORY SYSTEM ERROR REGISTER 
HITMIS= 177752 sHIT/MISS REGISTER 
CPEREG= 177766 :CPU ERROR REGISTER 


SEQ 9011 


AREAS 


GLOBA:. 
KOJ1L1A.MAC 


000000 
000002 


000004 
000006 


000174 
000176 


000200 


000046 
000052 


MACY11 30AC1052) 20-MAR-84 
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sMISCELANEOUS DEFINITIONS 
— 177546 ;BEVENT CONTROL REGISTER 


RBUF = 
XCSR= 


XBUF = 

ERRTN= HALT 
$TSTNU=1 
ERRNUM= 1 ; INITIALIZE ERROR NUMBER COUNTER 
ASWREG= 2000 ;SWR FOR APT--NO BEVENT TESTING 


; THIS aaron THE BOTTOM OF THE PROGRAM STACK POINTER 
* S 


- ASECT 
.SBTTL TRAP CATCHER 


20 
;#ALL UNUSED LOCATIONS OF THE VECTOR AREA CONTAIN 
s#A_ “.+2, IOT” SEQUENCE TO CATCH AND PROCESS ILLEGAL 
;#TRAPS AND INTERRUPTS THAT MIGHT OCCUR. 
;#THE IOT TRAP WHICH IS TAKEN ON THE ILLEGAL TRAP/INT 
3*#TRAPS TO THE $SCOPE ROUTINE WHICH CIF THE RETURN PC IS 
;#LESS THAN 1002) JUMPS TO THE SERROR ROUTINE. ) 
3#THE SERROR ROUTINE WILL REPORT THE ERROR AS FOLLOWS: 
34 PC=YYYYYY UNEXPECTED TRAP TO xxx 
;#AND RETURN TO THE PROGRAM AT PC=YYYYYY-2 
;#WHERE XXX=LOCATION OF ILLEGAL TRAP 
34 YYYYYY=PC AT TIME OF TRAP 
s*NOTE: IF THE PROCESSOR IS NOT AN 11/05 THE PROGRAM 


oa CAN BE STARTED AT ADDRESS 0 AS WELL AS ADDRESS 200. 
$40CAT: HALT 3 sHALT 
BR .-100 s BRANCH TO 177700 & TIME OUT (NOT ON 
23 
.WORD START ;;VECTOR TO STARTING ADDRESS 
- WORD 340 ;;WITH PRIORITY LEVEL 7 
DISPREG:.WORD 0 ;;SOFTWARE DISPLAY REGISTER 





SWREG: .WORD 0O ;:;SOFTWARE SWITCH REGISTER 
-SBTTL STARTING ADDRESS(ES) 


JMP @OSTART ;;GO TO START OF PROGRAM 
-SBTTL ACT11 HOOKS 


5 FE FPSESHSSSEAAEESSEALESESLSEEEAEAASESASRARAEAREARAAEREREALARARELRLALES 


sHOOKS REQUIRED BY ACTi1 
$SVPC=-. | 





aaa ;SAVE PC 

SENDAD :31)SET LOC.46 TO ADDRESS OF $ENDAD IN .$sEOP 
“WORD 0 :32)SET LOC.52 TO ZERO 

.=$SVPC 33; RESTORE PC 


-SBTTL APT PARAMETER BLOCK 


5 § FPALARSASESESEHEASASASLEASLASASLEALAALAREALERAACARARARAEAREALEARELERESE 


;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


SEQ 9012 


GLOBAL 


AREAS 
MAC 


000024 


MACY11 304(1052) 20-MAR-84 11:31 PAGE 13 
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Ni 


SEQ 0013 


PARAMETER BLOCK 


5 5 FESSAESAEESESELESESELASSESEAASERERERERESASEREAALAAAALARAEAEREDREES 


;;SAVE CURRENT LOCATION 
3;SET POWER FAIL TO POINT TO START OF PROGRAM 
:3FOR APT START uP 
;;POINT TO APT INDIRECT ADDRESS PNTR. 
; sPOINT TO APT HEADER BLOCK 
; ;sRESET LOCATION COUNTER 


5 § FESSASSSSSEAEAEEALELASEESEARABAEAREEEEREEALALAARARAREAAEEREREREAA 


sSETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 


s INTERFACE SPEC. 


SAPTHD: 
SHIBTS: 
$MBADR : 
$TSTM: 
$PASTM: 
SUNITM: 


=.$X 
=2 


SAO - 


=. $X 
. =1000 











0 
= 33 


;;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
ADDRESS OF APT MAILBOX (BITS 0-15) 
;;RUN TIM OF LONGEST TEST 
2 a TIME IN SECS. OF 1ST PASS - 1 UNIT (QUICK VERIFY) 
0 sADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
SETEND - SMAIL/2 ;;LENGTH MAILBOX-ETABLE( WORDS ) 
;SAVE CURRENT LOCATION COUNT 


sSET UP SOME VECTORS 
sRESTORE LOCATION COUNT 


GLOBA. 
KDJLIIA 


ARE AS 


-MAC 


001030 


MACY11 3OAC 1052) 
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-SBTTL GLOBAL DATA SECTION 

3°? 

s THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
s IN MORE THAN ONE TEST. 

ade 

-SBTTL APT MAILBOX -ETABLE 


3 § PSSSSESSSESESESESEEASESEEEEEEHEESADEESOREEEEEEEESRESEEEEEEEEDESES 


$MAIL : +3:APT MAILBOX 





SMSGTY: .WORD AMSGTY 33MESSAGE TYPE CODE 
SFATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 

STESTN: .WORD ATESTN ;;TEST NUMBER 

$PASS: .WORD APASS s3PASS COUNT 

SDEVCT: .WORD ADEVCT ;;DEVICE COUNT 

SUNIT: .WORD AUNIT 331/70 UNIT NUMBER 

SMSGAD: .WORD AMSGAD ;;MESSAGE ADDRESS 

SMSGLG: .WORD AMSGLG ;;MESSAGE LENGTH 

SE TABLE: 33:APT ENVIRONMENT TABLE 
SENV: BYTE : sENVIRONMENT BYTE 

SENVM: .BYTE : sENVIRONMENT MODE BITS 
SSWREG: .WORD 3:APT SWITCH REGISTER 

SUSWR: .WORD s3sUSER SWITCHES 

sCPUOP: .WORD 33;CPU TYPE ,OPTIONS 

36 BITS 15-112CPu TYPE 

3¢ 11/04*01,11/05*02, 11/2003, 11/40*04, 11/4505 
34 11/7006 ,PDQ*07 ,Q=10 
3¢ BIT 10*REAL TIME CLOCK 

34 BIT 9=*FLOATING POINT PROCESSOR 
30 BIT 8=MEMORY MANAGEMENT 

SE TEND: 

.MEXIT 


3 THESE LOCATIONS ARE USED IN MORE THAN ONE TEST TO STORE VECTOR DATA 

NEEDS TO HAVE AN ERROR CONDITION RESPOND DIFFERENTLY 
AULT RESPONCE. 

SLOCOO: .WORD Oo 

SLOCOL: . 0 


Bet LOCATIONS ARE USED IN MORE THAN ONE TEST TO STORE WORKING DATA. 











EXPDAT: .WORD 0 sSTORES EXPECTED (GOOD) DATA FOR COMPARISONS 
RECDAT: .WORD 0 sSTORES RECIEVED DATA TO BE VERIFIED 
COUNT: .WORD 0 sERROR INDICATOR FOR FLOATING POINT TESTS 
FLAG: -WORD 0 sUSED TO STORE “FLAG” CONDITIONS 
ERRCNT: .WORD 0 sSTORAGE FOR ERROR COUNT 
SUR ; -WORD OSWR sSTORAGE FOR SWITCH REGISTER ADDRESS 
DISPLAY: .WORD ODISP sSTORAGE FOR DISPLAY REGISTER ADDRESS 
SERFLG: .WORD 0 sERROR FLAG 

a USED BY MORE THAN ONE TEST AS LOOP COUNTERS 


z 
35 
a555: 


;sSTORAGE FOR UNEXPECTED TRAP DATA 


SAVSP2: 3 


SEQ 0014 


GLOBAL 


ARE AS 


KDJLLA.MAC 


001066 
001070 
001072 
001074 
001076 
001100 
001110 


001120 
001120 


000002 


&Lo000o 


2 


C) 


TO STORE 
TO STORE 
TO STORE 
TO STORE 
TO STORE 
TO STORE 
TO STORE 


SUPERVISOR STACK VALUE 
USER STACK VALUE 

MMU STATUS REGISTER O DATA 
MMU STATUS REGISTER 1 DATA 
MMU STATUS REGISTER 2 DATA 
VALUES FOR MMU TESTS 
VALUES FOR MMU TESTS 


SEQ 9015 


De 


KDJILA.MAC”” 20" MAR Ag PRS }8°°? °O-MAR-BG, 431583, CREEL AR 


-SBTTL GLOBAL TEXT SECTION 


020124 
020070 
047506 
041040 
051531 


044103 
052123 
051122 


051122 


THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 


; 
; 
; MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
; MORE THAN ONE TEST. 

i 


) 
; FORMAT STATEMENTS USED IN PRINT CALLS 


OPMSGe: 


-ASCIZ 


ERRMSG: : .ASCIZ 


MMUERR : 


ERR1: 
ERRO: 


SCRLF: 


~ASCIZ 


-ASCIZ 
-ASCIZ 


-ASCIZ 
-EVEN 


<CR><LF>/SET BIT 8 = 1 FOR 18 BIT SYSTEM/ 


<CR><LF>/CACHE SYSTEM ERROR/ 


<CR><LF>/ERROR DURING MMU TESTING/ 


<CR><LF>/ERROR @ =/ 
<CR><LF>/ERROR PC =/ 


<CR><LF > / 


SEQ 0016 


E2 
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676 -SBTTL GLOBAL ERROR REPORT SECTION 

677 

678 00 

679 ; THE GLOBAL ERROR REPORT SECTION CONTAINS MESSAGE PRINTING AREAS 

680 ; USED BY MORE THAN TEST TO OUTPUT ADDITIONAL ERROR INFORMATION. 

6 Ba 


GLOBAL 


ARE AS 


KDJ1L1A.MAC 


683 
684 


MAC111 30A( 1052) 
20-MAR -84 11:19 


005205 
000002 


000200 
001600 


177600 


20 -MAR -84 


172516 


11:31 PAGE 18 
GLOBAL SUBROUTINES SECTION 


-SBTTL GLOBAL SUBROUTINES SECTION 


s¢* 
; THE GLOBAL SUBROUTINES SECTION ot aa THE SUBROUTINES 
3 THAT ARE USED IN MORE THAN ONE TEST 

g-- 


: 
sMMU GLOBAL SUBROUTINES 
i 


& 
sROUTINE TO INITIALIZE MEMORY MANAGEMENT 
a 





MMU : MOV RO, -(SP) ;SAVE CONTENTS OF REGISTERS 
MOV #177600,RO : 
JSR PC,P sINIT I AND D USER PODR'S 
JSR PC ,PAR sINIT I USER PAR'S 
JSR PC ,PAR sINIT D USER PAR’S 
MOV #172200,RO0 
JSR PC, sINIT I AND D SUP PDR'S 
JSR PC,PAR sINIT I SUP PAR’S 
JSR PC.PAR sINIT DO SUP PAR'S 
JSR PC.POR sINIT I AND D KER POR'S 
JSR PC .PAR sINIT I KER PAR’S 
JSR PC PAR sINIT D KER PAR'S 
MOV 927 ,80172516 sINIT MMRS 
MOV (SP)+,R2 sRESTORE REGISTERS 
MOV CSP)«¢,R1 : 
MOV CSP)+,. RO ; 
RTS PC ;RETURN 
5 
sROUTINE TO INITIALIZE PDR‘S 
3 
POR: CLR Re ; INIT CNTR 
PDR1: MOV €77406,(RO)> : INIT PDR 
ADD #1,Re2 ; INCREMENT CNTR 
CMP #16.,Re sARE WE DONE? 
BNE POR1 ;BRANCH IF NOT 
RTS PC ; RETURN 
a 
sROUTINE TO INITIALIZE PAR'S 
# 
PAR: CLR Ri tk ee be INIT PAR 
PARI: MOV R1,CRO)+ ; INIT 
ADD $200,R1 ;GET READY FOR _— PAR 
CMP #1600,R1 sREACHED A PAR 
BNE PAR1 ;BRANCH IF NOT 
MOV #177600,(RO)-> ;INIT PAR? 
RTS PC ;RE TURN 
3 
;TIME OUT ROUTINE 
2 
ADDTRP: INC RS ; INCREMENT TIME OUT FLAG 
RTI ;RETURN 


a 


SEQ 9018 


OBA AREAS 
KDJ11A.MAC 


20"NiE a PAIS?” 29-18 P8, each fe 1a 


177356 000001 


177776 


177764 
000002 


177776 


000002 
177764 
000002 


000004 
177572 


177574 
177576 
177572 
177242 


177316 
177312 
177306 


Ge 


CTION 
sMMU TRAP ROUTINE 


MMUTRP: CMP FLAG, #1 
BEG 1$ 
ERROR 
. WORD 1 
. WORD MMUERR 
1$: MOV RO, -(SP) 
MOV 80177776,R0 
ASH #-14,R0 
CMP RO, #2 
BNE OK 
BR NOTOK 
OK : MOV 84177776,RO 
ASH #2,RO0 
ASH #-14,R0 
CMP RO, @2 
BNE OK1 
NOTOK: CLR 4(SP) 
OK1: MOV 80177572, SAVMRO 
MOV 80177574, SAVMR1 
MOV 8177576, SAVMR2 
CLR 80177572 
CLR FLAG 
MOV (SP)+,RO 
RTT 


;ARE WE EXPECTING AN ABORT 
:;YES GO ON 

sALL ERRORS TO TRAP TO EMT VECTOR 
; UNIQUE ERROR NUMBER 

;ADDRESS OF ERROR MESSAGE 

;SAVE CONTENTS OF REG O 

s;SAVE A COPY OF PSw 

sLOOK AT BITS<15:14> 

3;WAS PS<15:14>=10 

;NO GO ON 

:;YES CHANGE BITS TO OO 

;SAVE A COPY OF PSw 

;sLOOK AT BITS<13:12> 


b 
sWAS PS<13:12>=10 
;NO GO ON 


;CLEAR ILLEGAL — oo OLD PSwW 
sSAVE A COPY OF 
OF MMR 


;SAVE A COPY OF 
;SAVE A COPY OF MMR2 

;CLEAR ABORT te AND TURN MMU OFF 
;CLEAR MMU ABORT FLAG 

sRESTORE ORIGINAL CONTENTS OF REG O 
;RE TURN 


SEQ 9019 


GLOBAL 


AREAS 


KDJL1A.MAC 


001604 
001604 


012737 
012706 


012737 
012737 


013746 
012737 
012767 
012767 
022777 
001012 


000403 
012716 
000002 


012767 


012767 
012657 


012767 
012737 


000014 


177777 


001732 


000176 
000174 
000004 


176760 
176776 


000001 


177746 


177106 
177102 


177035 
177052 


000020 
000022 


176226 


000001 
000176 


017666 


START: 


MOV 014 
-SBTTL INITIALIZE THE COMMON TAGS 
@STACK, 
EW VECTORS 


MOV 
acini AF 


He 


20-MAR=Ba21:19°°?  2O-MARCPA al eT thee section 


.8@CCR sSET CACHE TO FORCE MISS 
3;SETUP THE STACK POINTER 


MO @SERROR.QOEMTVEC ;;EMT VECTOR FOR ERROR ROUTINE 
MOV ©340 ,QG@EMTVEC+2 ;;LEVEL 7 

MOV @$TRAP,@OTRAPVEC ;; TRAP VECTOR FOR TRAP CALLS 
MOV #340 ,.AB@TRAPVEC+2;LEVEL 7 

CLR $PASS ;;CLEAR THE PASS COUNT 

MOV SENDCT, SEOPCT ;;SETUP END-OF -PROGRAM COUNTER 
CL SERFLG 3sCLEAR THE ERROR FLAG 


RB ; 
3;SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT Is 
;sEQUAL TO A “-1", SETUP FOR A SOFTWARE SWITCH REGISTER. 





MOV SeERRVEC,-(SP) ;;SAVE ERROR VECTOR 
MOV 64% , B@ERRVEC ;;SET UP ERROR VECTOR 
MOV #DSWR , SWR 3;SETUP FOR A HARDWARE SWICH REGISTER 
MOV @ODISP,DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 
CMP #-1,3SWR ;3;TRY TO REFERENCE HARDWARE SwR 
BNE 66$ 3 ;BRANCH IF NO TIMEOUT TRAP OCCURRED 
:sAND THE HARDWARE SWR IS NOT = -1 
BR 65$ ; ;BRANCH IF NO TIMEOUT 
64$: are 965% ,( SP) ;;SET UP FOR TRAP RETURN 
65$: MOV @SWREG , SWR :;;sPOINT TO SOFTWARE SwrR 
MOV @DISPREG ,DISPLAY 
663: MOV (SP)+,@@ERRVEC ;;RESTORE ERROR VECTOR 
-MACRO $$SETMAIL ?$ARG1 
CLR $PASS ;;CLEAR PASS COUNT 
BITs @APTSIZE,.SENVM ;;TEST USER SIZE UNDER APT 
BEQ $ARG1 :3;YES.USE NON-APT SWITCH 
iia MOV @$SWREG,SWR 3sNO,USE APT SWITCH REGISTER 
$ : 
. ENDM $$SETMAIL 
CLR $PASS 3:;CLEAR PASS COUNT 
BITB @APTSIZE,SENVM ;;TEST USER SIZE UNDER APT 
BEG 67$ ;3;YES,USE NON-APT SWITCH 
— MOV @$SWREG,SWR ;3NO,USE APT SWITCH REGISTER 
MOV &SERROR , AGIOTVEC ;3;SET UP IOT VECTORS 
MOV #340 ,a®IOTVEC+2 :3TO GO TO ERROR ROUTINE 
CLR 80177766 ;CLEAR CPU ERROR REGISTER 
MOV OMMUTRP ,. MMVEC 
TYPE » OPMSG2 sOPERATOR MESSAGE 2 
-SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 
TST 8042 3;ARE WE RUNNING UNDER XXxDP/ACT? 
BNE 68$ ; ;sBRANCH IF YES 
SENV, #1 33ARE WE RUNNING UNDER APT? 
68$ ; ;sBRANCH IF YES 
CMP SWR , @SWREG 3;SOF TWARE SWITCH REG SELECTED? 
BNE 69$ ; ;8RANCH IF NO 
a ois :;3;GET SOFT-SWR SETTINGS 
685: MOVB $1, $AUTOB ;:;SET AUTO-MODE INDICATOR 


69%: 


SEQ 9020 
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005067 
012737 


9 


176712 
000014 


177572 
177574 
177576 
172516 
000004 


000000 


177746 


000244 
000246 
000004 


Te 


T vALGe For “Sir fhare SWITCH REGISTER 


RESTART: CLR $TESTN 
MOV #14 ,80eCCR 


-SBTTL MEMORY MANAGEMENT TESTS 

§ HESASESSEEEAESEEESSSESELESASAASEERESASAEEASEEEEHD*AELAEEREREEEEDEREDEEEEDEDS 
i HEPES ESEASASEEESESSEEESESEESERSEEESEALEEEEREREDEDADEEAREREDREREALERASAREES 
3 BEGIN MMU TESTING 

§ SESSSSAESSEDEEESESESESESSEESEASELEDEEEAEREEDESERADEADERARERDDARREEEADLEREDES 
§ SHSSSELEBELESESESLEDSESEEESEDESEEAAEEESELEEAEEDADRERDAREDRERARERERALERELEDALS 
TSMMU1: 

§ SPPPSEESASEEAEAEESESESEEEAEADEEAALEEALAOAAEARAEERARERELAEALERDALRES 

s#TEST 1 STATUS REGISTER TEST 

Sj PHSEAEAESAESEASEEASEEEEEEEAEEEASAAARESEAREARAEASERARARRERELALOES 

TSTl: 


sKESET STESTM TO ZERO 
3SE* CACHE TO FORCE MISS 


INC $TESTN s INCREMENT TEST NUMBER 
CLR CPEREG ;CLEAR CPU ERROR REGISTER 
CLR 80177572 ; TURN MMU OFF 
CLR OF LAG ;CLEAR MMU TRAP FLAG 
MOV 864 ,-(SP) ;SAVE OLD VECTOR 
MOV @ADDTRP , 204 ;SETUP NEW VECTOR 
CLR RS s;CLEAR FLAG 
MOV 80177572,R1 ; TEST MMRO 
MOV 80177574 .R1 ; TEST MMR1I 
MOV 8@177576,R1 ; TEST MMRO 
MOV 84172516,R1 ; TEST MMR3 
MOV C(SP)+,804 sRESTORE VECTOR 
CMP RS, #0 :DID WE TRAP 
BEQ 1$ ;NO, THEN BRANCH 
ERROR ;sALL ERRORS TO TRAP TO EMT VECTOR 
. WORD 2 ; UNIQUE ERROR NUMBER 
. WORD MMUERR ;ADDRESS OF ERROR MESSAGE 
;YES, GO TO ERROR 
1$: 
TSMMUe: 


bs SPSSSESESSASESSOHAASAEASASELADEERAEAEREREAARALARAAALALARASEARLLS 


s*#TEST 2 ADDRESS TEST OF PARS,PORS, AND FP REGS 
sf SSPOSSSSAAASEESESASASAREAAEASESEAAEASAEERERASHAERAREREDREREDERERESD 
TSTe2: 
INC $TESTN ; INCREMENT TEST NUMBER 
CLR CPEREG ;CLEAR CPU ERROR REGISTER 
CLR 86177572 sMMU OFF 
CLR SOF LAG ;CLEAR MMU TRAP FLAG 
MOV 80244, -(SP) s;SAVE FP VECTOR 
MOV 80246, -( SP) 
MOV @@4 , -( SP) ;SAVE TIME OUT VECTOR 
MOV 9246 , 80244 ;SETUP NEW FP VECTOR 
MOV $2 ,80246 ; 
MOV GADDTRP . 804 ;SETUP NEW TIME OUT VECTOR 
CLR ;CLEAR TIMEOUT FLAG 
MOV $172200,RO0 sLOAD ALL PARS AND PDRS WITH ZERO 
1$: CLR RO)->+ : 
CMP RO, 172400 ; 
BNE 1$ : 
MOV #177600,RO $ 
2s: CLR CRO)+ : 


SEQ 9021 


Je 
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877 002276 020027 177700 CMP RO, #177700 ; 
878 002302 001374 BNE 2$ ; 
879 002304 170127 000200 LOFPS 4200 : 
880 002310 012700 001100 MOV OFLOAT,RO ;LOAD ACO-ACS WITH 0 
881 002314 005020 CLR (RO)+ : 
882 002316 005020 CLR (RO)+ ; 
883 002320 005020 CLR (RO)+ 
884 002322 0050 CLR (RO)+ 
885 002324 012700 001100 MOV OFLOAT,RO ' 
886 002330 172410 LOD CRO), ACO : 
887 002332 172510 LOD CRO), AC1 
888 002334 172610 LOD CRO),AC2 
889 002336 172710 LDD (RO),AC3 : 
890 002340 174004 STD ACO,AC4 ; 
891 002342 174005 STD ACO,ACS : 
892 002344 174500 3$: DIVD ACO,ACi sLOAD FEC WITH 4 AND FEA WITH 03$ 
893 002346 170337 001110 STST  @@FLO ;CHECK FEC FOR 4 AND FEA FOR 035 
894 002352 012704 001110 MOV OFLO,R4 ; 
895 002356 022427 000004 CMP CR4)+,04 , 
896 002362 001403 BEQ 218 
897 002364 104000 ERROR SALL ERRORS TO TRAP TO EMT VECTOR 
898 002 000003 .WORD 3 sUNIQUE ERROR NUMBER 
899 002370 001213 .WORD MMUERR sADDRESS OF ERROR MESSAGE 
@ 
901 002372 021427 002344 218: CMP (R4), 038 
902 002376 001403 22$ 
903 002400 104000 SALL ERRORS TO TRAP TO EMT VECTOR 
904 002402 4 ;UNIQUE ERROR NUMBER 
905 002404 001213 MMUERR sADDRESS OF ERROR MESSAGE 
907 002406 012704 172200 223: 172200,R4 ;CHECK EACH PAR, PDR FOR O THEN 
908 002412 012701 000001 #1,R1 sWRITE A UNIQUE NUMBER TO IT 
909 002416 010102 4$: R1,R2 : 
910 002420 072227 000010 #10,R2 : 
911 002424 021427 000000 (R4), 00 
912 002430 001403 54 
913 002432 104000 SALL ERRORS TO TRAP TO EMT VECTOR 
914 002434 000005 5 ;UNIQUE ERROR NUMBER 
915 002436 001213 ; MMUERR sADDRESS OF ERROR MESSAGE 
917 002440 010224 S$: MOV R2,(R4)> 
918 002442 005201 INC R1 ; 
919 002444 020427 172400 CMP R4,9172400 
920 002450 001362 BNE 4$ : 
921 002452 012704 177600 MOV 177600,R4 : 
922 002456 010102 6$: MOV R1,R2 : 
923 002460 072227 000010 ASH #10,R2 : 
924 002464 021427 000000 CMP (R4), 00 ; 
925 002470 001403 BEQ 7$ : 
926 002472 104000 ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 
927 002474 000006 & ;UNIQUE ERROR NUMBER 
928 002476 001213 MMUERR sADDRESS OF ERROR MESSAGE 
930 002500 010224 7$: MOV R2,(R4)> ; 
931 002502 005201 INC Ri : 
932 002504 020427 177700 CMP R4,9177700 : 








GLOBAL 


AREAS 


KDJ11A.MAC 
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001213 


005302 
001370 


20-MAR-84 1 


001110 
001100 


000004 
000000 


001100 
000006 


001100 


001110 
000004 


8$: 


9$: 


10$: 


11$: 


12s: 


13$: 


14$: 


15$: 
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Ke 


‘ 
sCHECK ACS FOR ALL ZEROES THEN LOAD A 6 


sALL_ ERRORS TO TRAP TO EMT VECTOR 
; UNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 


; 
; 
i 
; 
sCHECK AC4 FOR ALL ZEROES THEN LOAD A 5 
3 


FALL ERRORS TO TRAP TO EMT VECTOR 
s UNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 


CHECK ACO FOR ALL ZEROES THEN LOAD A 1 


FALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 


CHECK AC1 FOR ALL ZEROES THEN LOAD A 2 


sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 


SEQ 9023 


GLOBAL AREAS 
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012713 


000002 
001110 
000004 


000000 


001110 
000004 


000010 


172400 
177600 
000010 
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16$: 


17$: 


18$: 


19$: 


23$: 


243: 


253: 


#2,(R3) 
(R3),AC1 
#FLO,R4 


#4 ,R2 
AC2,(CR4) 
CR4)+, 00 
17$ 


13 
MMUERR 





Le 


SEQ 9024 


ESS ré¢r OF PARS,PDRS, AND FP REGS 


. 

sCHECK AC2 FOR ALL ZEROES THEN LOAD A 3 
4 

: 


FALL reo TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 
‘ADDRESS OF ERROR MESSAGE 


;CHECK AC3 FOR ALL ZEROES THEN LOAD A 4 
; 


FALL ERRORS TO TRAP TO EMT VECTOR 
;UNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 


sCHECK FPS FOR 100204 THEN LOAD IT WITH 200 


FALL ERRORS TO TRAP TO EMT VECTOR 
s UNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 


: 
sCHECK PDR, PAR FOR UNIQUE NUMBERS 


sALL ERRORS TO TRAP TO EMT VECTOR 
: UNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 


;ALL ERRORS TO TRAP TO EMT VECTOR 


Me 
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1045 003134 000017 -WORD 17 sUNIQUE ERROR NUMBER 

aoe 003136 001213 -WORD MMUERR sADDRESS OF ERROR MESSAGE 

1048 003140 005201 26%: INC Ri ; 

1049 003142 020427 177700 CMP R4,#177700 ; 

1050 003146 001364 BNE 25$ : 

1051 003150 012701 001100 MOV #FLOAT,R1 sCHECK ACS FOR #6 

1052 003154 012704 001110 MOV oFLO, : 

1053 003160 174014 STD ACO,(R4) ; 

1054 003162 172405 LOD ACS ,ACO ; 

1055 003164 174011 STO ACO,(R1) ; 

1056 003166 022127 000006 CMP CR1)+, 46 ; 

1057 003172 001403 BEG 27$ ; 

1058 003174 104000 ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 

1059 003176 000020 .WORD 20 ; UNIQUE ERROR ER 

oe 003200 001213 -WORD MMUERR sADDRESS OF ERROR MESSAGE 

1062 003202 012703 000003 27$: MOV 03,R3 ; 

10653 003206 022127 000000 28$: CMP CR1)+, 00 ; 

1064 003212 001403 BEQ $ : 

1065 003214 104000 ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 

1066 003216 000021 -WORD 21 s UNIQUE ERROR NUMBER 

oan 003220 001213 .WORD MMUERR sADDRESS OF ERROR MESSAGE 

1069 003222 005303 295: DEC RS ; 

1070 003224 001370 BNE 28$ ; 

1071 003226 012701 001100 MOV OFLOAT ,R1 sCHECK AC4 FOR #5 

1072 003232 172404 LOD AC4 ,AC ; 

1073 32 174011 STD ACO,CR1) ; 

1074 003236 022127 000005 CMP CR1)+,45 ; 

1075 003242 001403 BEQ 2 

1076 003244 104000 ERROR SALL ERRORS TO TRAP TO EMT VECTOR 

1077 003246 22 -WORDB 22 ; UNIQUE ERROR NUMBER 

phen 003250 001213 -WORD MMUERR sADDRESS OF ERROR MESSAGE 

1080 003252 012703 000003 30$: MOV #3,R3 ; 

1081 $256 022127 000000 31%: CR1)+, 40 

1082 003262 001403 $ 

1085 003264 104000 FALL ERRORS TO TRAP TO EMT VECTOR 

1084 003266 000023 23 ; UNIQUE ERROR NUMBER 

ome 003270 001213 MMUERR SADORESS OF ERROR MESSAGE 

1087 003272 005303 32%: DEC RS 3 

1088 003274 001370 BNE 31$ : 

1089 003276 022427 000001 CMP CR4)+, 1 ;CHECK ACO FOR #1 

1090 003302 001403 BEQ 53$ ; 

1091 3304 104 ERROR ;ALL_ ERRORS TO TRAP TO EMT VECTOR 

1092 003306 000024 -WORD 24 sUNIQUE ERROR NUMBER 

po 003310 001213 -WORD MMUERR sADDRESS OF ERROR MESSAGE 

1095 003312 012703 000003 33$: MOV @3,R3 ; 

1096 003316 022427 000000 34%; CMP (R4)+, 00 / 

1097 003322 001403 BEQ 35$ 

1098 003324 104000 ERROR FALL ERRORS TO TRAP TO EMT VECTOR 

1099 003326 000025 -WORD 25 sUNIQUE ERROR NUMBER 

1100 003330 001213 -WORD MMUERR sADDRESS OF ERROR MESSAGE 
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KDJ11A.MAC 


022127 
001403 
000 


0000 
001213 


001100 


000003 
000000 


001100 


000003 


000003 


001100 


000003 


35$: 


36$: 
37$: 


38$: 


393: 
40$: 


41$: 


42$: 
43%: 


44$: 





R3 


34$ 
#FLOAT,.R1 
ACi,CR1) 
C(R1)+, #2 
36$ 


26 
MMUERR 
#3,R3 
CR1)+, 40 
38$ 


27 
MMUERR 


R3 
37$ 
@FLOAT.R1 
AC2],(R1) 
CR1)+, 03 
39$ 





Ne 
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; 
sCHECK AC1 FOR #2 
; 
. 


FALL ERRORS TO TRAP TO EMT VECTOR 
; UNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 


FALL ERRORS TO TRAP TO EMT VECTOR 
;s UNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 


;CHECK AC2 FOR #3 
é 


FALL ERRORS TO TRAP TO EMT VECTOR 
; UNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 


SALL ERRORS TO TRAP TO EMT VECTOR 
s UNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 


;CHECK AC3 FOR 04 
a 


FALL ERRORS TO TRAP TO EMT VECTOR 
s UNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 


SALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 


4 
;IS TIME OUT FLAG O 
;YES GO ON 


SEQ 9026 
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000004 
000246 
000244 


172200 
177416 


172240 
177777 


172300 
177416 


172340 
177777 


172400 


6S 


ADDRESS TEST OF PARS,PDRS, AND FP REGS 
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ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
. WORD 34 sUNIQUE ERROR NUMBER 
-WORD MMUERR sADDRESS OF ERROR MESSAGE 
sNO GO TO ERROR 
45$: MOV (SP)+, 804 sRESTORE TIME OUT VECTOR 
MOV (SP )+, 80246 sRESTORE FP VECTOR 
MOV (SP )+ 80244 : 
TSMMUS: 
BE SSOOSOSOSSSEESESEEHEEEOOESEEEEEEEEHEHREREREOEOOOOEEEEEEEEEEEDEEEE 
s@TEST 3 WRITE ALL PARS/PDRS WITH ONES THEN ZEROS 
bi SSSOSEESOSESEEESESEEEEEEEEAEEEEHESEEEEEREEEREREOEEEEDEEREREDELES 
TST3: 
INC $TESTN s INCREMENT TEST NUMBER 
CLR 80177572 sMMU OFF 
CLR BOF LAG ;sCLEAR MMU ABORT FLAG 
MOV $172200,R3 sLOAD ALL PARS AND PDRS WITH ONES 
18: MOV 0177777,(R3)- ' 
CMP R3,@172400 z 
BNE 1$ 3 
2s: MOV @177777,(R3)- 5 
CMP R3,0177700 ; 
BNE es 3 
MOV #172200,R3 sCHECK SPDRS FOR ONES 
338; CMP corre 100s : 
; 
sALL ERRORS TO TRAP TO EMT VECTOR 
35 ; UNIQUE ERROR NUMBER 
MMUERR sADDRESS OF ERROR MESSAGE 
: 
4%: bi ast : 
3 $ 
5$: hile ;CHECK SPARS FOR ONES 
3 
;ALL ERRORS TO TRAP TO EMT VECTOR 
36 sUNIQUE ERROR NUMBER 
MMUERR sADDRESS OF ERROR MESSAGE 
3 
6$: CMP R3,4172300 3 
BNE 53 : 
7$: CMP Serre st ate :;CHECK KPDRS FOR ONES 
: 
sALL ERRORS TO TRAP TO EMT VECTOR 
37 ; UNIQUE ERROR NUMBER 
MMUERR sADDRESS OF ERROR MESSAGE 
3 
8$; CMP R3,0172340 : 
BNE 78 : 
9%: eo it ated alld ;CHECK KPARS FOR ONES 
10% : 
ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
. WORD 40 sUNIQUE ERROR NUMBER 
. WORD MMUERR sADDRESS OF ERROR MESSAGE 
: 
10$: CMP R3,9172400 3 


SEQ 902? 


001367 
012703 
022327 


00004 
001213 


020327 
001367 


012720 
012720 


177600 
177416 


177640 
177777 


177700 


172200 
000000 


172400 
177600 


000000 
177700 
172200 
000000 


172400 


177600 
000000 


177700 


174664 
177572 
174712 
172200 
052404 
125012 


11$: 


12$: 
133: 


143: 


15$: 


168: 


17$: 


183: 


198: 


20$: 


TSMMU4 ; 








C3 
RbORTAARES ao" ARAM PNS1S°?? 20MM; 11:52 PARE 2Bans poor 


9% 
#177600,R3 
[aa°°* 0177416 


41 

MMUERR 
R3,9177640 
11$ 
(R3)+,0177777 
i4$ 

42 

MMUERR 
R3,0177700 
13% 


R3,0177700 
16% 
#172200,R3 
CR3)+,00 
18% 


43 
MMUERR 


R3,0172400 
17$ 
@177600,R3 
CR3)+, 00 
20% 


a4 
MMUERR 


R3,0177700 
19% 





WITH ONES THEN ZEROS 


i 
‘wie UPDRS FOR ONES 


FALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR ER 
sADDRESS OF ERROR MCSSAGE 


: 

: 

—— UPARS FOR ONES 

FALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR ER 

sADDRESS OF ERROR MESSAGE 

3 


s 
sLOAD ALL PARS AND PDRS WITH ZEROES 


; 
: 
: 
; 
; 
3 
: 
sCHECK ALL PARS AND PDORS FOR ZEROES 
FALL ERRORS 70 TRAP TO EMT VECTOR 
NUMBER 


: UNIQUE ERROR 
sADDRESS OF ERROR MESSAGE 


8 

5 

: 

e 

sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 


5 § FOSS OOO8OO4O664O666466666066004600060060460606000060006006000060008680856 


TEST FOR ADJACENT SHORTS IN PARS/PORS 


55S OSOOOO8 60846660060 066660060660060086600066060560600800000000008000066 


s@TEST a 
TST4;: 


1$: 


STESTN 


#125012,(RO)> 


s INCREMENT TEST NUMBER 

sMMU OFF 

;CLEAR MMU ABORT FLAG 

sLOAD SPDRS WITH ALTERNATING PATTERN 
3 

3 


SEG 9028 


DS 


RDOTIA.NAE > ao MGa hg SPAC$Q52? © 20-MAR Ba thier PBR ROJACENT SHORTS IN PARS/PDRS 


022327 


00004 
001213 


0223527 
001403 


00004 
001213 


001403 


172240 


125012 


172240 
125252 


052525 


172300 
052404 


2s: 


33: 


4$: 


5$: 


6$: 


98: 
10$: 


118: 


12s: 
13$;: 








t Salaeaini 
#125252, (RO)->+ 
952525, (RO)- 
+ alia 
952404 ,(RO)>+ 
125012,(RO)-> 
+ aaitaiai 
#52525,CRO)-> 
> Saat te 
#177600,R0 
952404 ,(RO)-« 
#125012,(RO)> 
> kata 
$ 
#125252, (RO)> 


@52525,,(RO)-> 
o_o 


©172200,R3 
hl alae 


45 
MMUERR 
(R3)-+,@125012 
93 
46 
MMUERR 
aang 

& 
CR35)+,. 0125252 
11% 
47 
MMUERR 
(R3)+, 052525 
12s 
50 
MMUERR 
R3,.0172300 
10$% 
(R3)+, 052404 
14% 


6 

: 

sLOAD SPARS WITH ALTERNATING PATTERN 
3 


; 
sLOAD KPDRS WITH ALTERNATING PATTER 
: 

: 


3 

sLOAD KPARS WITH ALTERNATING PATTERN 
3 

5 


é 

sLOAD UPDRS WITH ALTERNATING PATTERN 
‘ 

3 

‘ 


: 
sLOAD UPARS WITH ALTERNATING PATTERN 
i 
; 
: 


sCHECK SPDRS 
. 


FALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 


: 
FALL ERRORS TO TRAP TO EMT VECTOR 
NUMBER 


s UNIQUE ERROR 
sADDRESS OF ERROR MESSAGE 


3 
: 

eta SPARS 

FALL ERRORS TO TRAP TO EMT VECTOR 
; UNIQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 

. 

FALL ERRORS TO TRAP TO EMT VECTOR 
:s UNIQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 

; 

3 

;CHECK KPDRS 


8 
;ALL ERRORS TO TRAP TO EMT VECTOR 


SEQ 9029 


AREAS MACY11 30A( 1052) sialliias 11:31 


GL OB AL PAGE 30 SEQ 9030 
KDJLLA.MAC 20 -MAR -84 11:19 TEST FOR ADJACENT SHORTS IN PARS/PDRS 





1525 004374 000051 -WORD 51 sUNIQUE ERROR NUMBER 
1°33 004376 001213 ‘ MMUERR sADDRESS OF ERROR MESSAGE 
13528 004400 022327 125012 14$: CMP C(R3)+, 4125012 
1329 004404 001403 BEQ 153 
1330 004406 104000 ERROR FALL ERRORS TO TRAP TO EMT VECTOR 
1331 004410 000052 -WORD Se sUNIQUE ERROR NUMBER 
are 004412 001213 .WORD  MMUERR sADDRESS OF ERROR MESSAGE 
13534 004414 020327 172340 i5$: CMP R3,@172340 ; 
1335 004420 00136 BNE 13$ : 
1536 004422 022327 125252 16$: CMP CR3)+,%125252 ‘beens KPARS 
1337 004426 001403 BEQ 17$ 
1338 004430 104000 ERROR FALL ERRORS TO TRAP TO EMT VECTOR 
1339 004432 000053 -WORD 53 s UNIQUE ERROR NUMBER 
oe 004434 001213 -WORD MMUERR sADDRESS OF ERROR MESSAGE 
1342 004436 022327 052525 17$: CMP CR3)+,852525 ' 
1343 004442 001403 BEQ 18$ 
1344 004444 104000 ERROR FALL ERRORS TO TRAP TO EMT VECTOR 
1345 004446 000054 -WORD 54 sUNIQUE ERROR NUMBER 
oae 004450 001213 -WORD MMUERR sADDRESS OF ERROR MESSAGE 
1348 004452 020327 172400 18$: CMP R3,.9172400 : 
1349 004456 001361 BNE 16$ : 
i350 004460 012703 177600 MOV #177600,R3 ;CHECK UPDRS 
1551 004464 022327 052404 -19$: CMP CR3)+, 852404 : 
1352 004470 001403 BEQ 20$ 
1353 004472 104000 ERROR SALL ERRORS TO TRAP TO EMT VECTOR 
1354 004474 000055 -WORDB 55 sUNIQUE ERROR NUMBER 
ane 004476 001213 -WORD MMUERR sADDRESS OF ERROR MESSAGE 
1357 004500 022327 125012 203: CMP (R3)+,0125012 ; 
1558 004504 001403 BEQ 21% 
1559 004506 104000 ERROR FALL ERRORS TO TRAP TO EMT VECTOR 
1360 004510 56 -WORDB 56 ; UNIQUE ERROR NUMBER 
ptt 004512 001213 -WORD MMUERR sADDRESS OF ERROR MESSAGE 
1563 004514 020327 177640 21%: CMP R3.0177640 : 
1564 004520 001361 BNE 19$ 3 
1565 004522 022327 125252 223: CMP CR3)+, 125252 _— UPARS 
1566 004526 001403 BEQ 23% 
1367 004530 104000 ERROR FALL ERRORS TO TRAP TO EMT VECTOR 
1368 004532 000057 -WORD 57 ; UNIQUE ERROR NUMBER 
$54 004534 001213 -WORD MMUERR sADDRESS OF ERROR MESSAGE 
1571 004536 022327 052525 23%: CMP CR3)+, 052525 ; 
1372 004542 001403 BEG 24$ 
1373 004544 104000 ERROR FALL ERRORS TO TRAP TO EMT VECTOR 
1374 004546 000060 -WORDB 60 s UNIQUE ERROR NUMBER 
phe 004550 001213 -WORD MMUERR sADDRESS OF ERROR MESSAGE 
1377 004552 020327 177700 24%: CMP R3,0177700 : 
oiee 004556 001361 BNE 22$ : 
a 
1380 sREVERSE ALTERNATING PATTERN 





GL OBA. 


AREAS 


KDJL1A.MAC 


MACY11 30A( 1052) 
20-MAR-84 11:19 


022327 
001403 
104000 
000064 
001213 


020327 


052404 


172240 
052525 


125252 


172300 


20 -MAR - 84 
TS 


263: 


27s: 


28s: 


323: 


333: 
34$: 


35$: 


363: 


11:31 


rs 


#172200,R0 
952404 ,CRO)-> 
~$ , 172240 


@52525,(RO)+ 
#125252, CRO)>+ 
RO. €172300 


6 
#125012,(RO)> 
952404 ,(RO)>+ 
RO, #172340 
27$ 
#52525,(RO)- 
#125252, (RO)>+ 
RO, #172400 
28s 
#177600 ,RO 
9125012,(RO)>+ 
052404 ,CRO)>+ 
RO, 0177640 
29$ 
#52525,(RO)-> 


RO, #177700 
30$ 


#172200,R3 
CR3)+, 0125012 
32% 


61 

MMUERR 
(R3)+, 052404 
33% 

62 

MMUERR 

R3, 0172240 
31$ 

C(R3)+, 952525 
35$ 

63 

MMUERR 

Ci 5)+, 0125252 
36$ 

64 

MMUERR 
R3,%172300 


PAGE 31 
TEST FOR ADJACENT SHORTS IN PARS/PDRS 


sLOAD SPDRS WITH REVERSE PATTERN 
: 
» 
; 


* 

sLOAD SPARS WITH REVERSE PATTERN 
: 

> 

sLOAD KPDRS WITH REVERSE PATTERN 


i 
sLOAD KPARS WITH REVERSE PATTERN 
; 
; 


5 

sLOAD UPDRS WITH REVERSE PATTERN 
; 

5 

2 


‘ 
;LOAD UPARS WITH REVERSE PATTERN 
3 


;CHECK SPORS 
. 


FALL ERRORS TO TRAP TO EMT VECTOR 
; UNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 


FALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 


3 

: CHECK SPARS 

SALL ERRORS TO TRAP TO EMT VECTOR 
NUMBER 


; UNIQUE ERROR 
sADDRESS OF ERROR MESSAGE 


FALL ERRORS TO TRAP TO EMT VECTOR 
s UNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 


SEQ 9031 


GS 


GLOBAL AREAS _ MACY11 30A(1052) 20-MAR-84 11:3] P SEQ 0022 
KDJ11A.MAC 20-HMAR-84 11:19 14 fest FBR ABUACENT SHORTS IN PARS/PDRS me O02 

1437 005012 00136 BNE 3a$ :; 

1438 005014 022327 125012 37$: CMP (R3)+,0125012 ;CHECK KPDRS 

1439 005020 001403 BEQ 383 ; 

1440 005022 104000 ERROR ;ALL_ERRORS TO TRAP TO EMT VECTOR 

1441 005024 5 -WORD 65 sUNIQUE ERROR NUMBER 

1442 005026 001213 .WORD MMUERR ;ADDRESS OF ERROR MESSAGE 

1444 005030 022327 052404 38$: CMP (R3)+, 052404 

1445 005034 001403 BEQ 393 

1446 005036 104000 ERROR ;ALL_ ERRORS TO TRAP TO EMT VECTOR 

1447 005040 000066 -WORD 66 sUNIQUE ERROR NUMBER 

1448 005042 001213 .WORD MMUERR sADDRESS OF ERROR MESSAGE 

1 

1450 005044 020327 172340 39$: CMP R3,0172340 

1451 005050 001361 BNE 37$ 

1452 005052 022327 052525 40%: CMP (R3)+, 052525 ;CHECK KPARS 

1453 001403 BEQ 41s ; 

1454 104000 ERROR ;ALL_ ERRORS TO TRAP TO EMT VECTOR 

1455 005062 7 -WORD 67 sUNIQUE ERROR NUMBER 

1436 005064 001213 .WORD MMUERR ;ADDRESS OF ERROR MESSAGE 

1458 022327 125252 41s: CMP (R3)+, 0125252 

1459 005072 001403 BEQ 42% ; 

1460 005074 104000 ERROR ;ALL_ ERRORS TO TRAP TO EMT VECTOR 

1461 005076 000070 .WORD 70 sUNIQUE ERROR NUMBER 

1462 005100 001213 .WORD MMUERR ;ADDRESS OF ERROR MESSAGE 

1464 005102 020327 172400 42%: CMP R3,0172400 

1465 005106 001361 BNE 40$ ; 

1466 005110 012703 177600 MOV #177600,R3 ;CHECK UPDRS 

1467 005114 022327 125012 43s: CMP (R3)+, 0125012 ; 

1468 005120 001403 BEQ 44$ ; 

1469 005122 104000 ERROR sALL_ ERRORS TO TRAP TO EMT VECTOR 

1470 005124 000071 71 sUNIQUE ERROR NUMBER 

1471 005126 001213 MMUERR sADDRESS OF ERROR MESSAGE 

1473 005130 022327 052404 44$: CMP (R3)+,@52404 ; 

1474 005134 001403 BEQ 45$ ; 

1475 005136 104000 ERROR ;ALL_ERRORS TO TRAP TO EMT VECTOR 

1476 005140 72 -WORD 72 sUNIQUE ERROR NUMBER 

1477 005142 001213 .WORD MMUERR ;ADDRESS OF ERROR MESSAGE 

1479 005144 020327 177640 45$: CMP R3,0177640 : 

1480 005150 001361 BNE 433 ; 

1481 005152 022327 052525 46%: CMP (R3)+, 052525 :CHECK UPARS 

1482 005156 001403 BEQ 47% : 

1483 005160 104 ERROR ;ALL_ ERRORS TO TRAP TO EMT VECTOR 

1484 005162 000073 .WORD 73 :UNIQUE ERROR NUMBER 

1485 005164 001215 .WORD MMUERR sADDRESS OF ERROR MESSAGE 

1487 005166 022327 125252 47s: CMP (R3)+,@125252 

1488 005172 001403 BEQ 48% 

1489 005174 104000 ERROR ;ALL_ERRORS TO TRAP TO EMT VECTOR 

1490 005176 000074 .WORD 74 :UNIQUE ERROR NUMBER 

1491 005200 001212 .WORD  MMUERR sADDRESS OF ERROR MESSAGE 








AREAS 


GLOBAL. 
KOJ11A. MAC 


005202 
005206 


005210 


Y1l1 30A( 1052) 
-864 11:19 


020327 
001361 


012737 


177700 


173570 


177572 
177572 
000176 
000000 


120000 
177572 
000176 
120000 


040000 
177572 
000176 
040000 


173412 
177572 
173440 
000077 


HS 


20 -MAR - 84 11:3) a %3 
T4 TEST F ADJACENT SHORTS IN PARS/PDRS 
483: CMP R3,0177700 ; 
BNE 46$ : 
TSMMUS : 
5 i PPPSSESEAESASACASERESESEESESSEDEEDEREEEEHREREDEEERADEDRDEAEEEOES 
;*#TEST 5S TEST MMRO ABORT BITS 
5 i P#SOSESSAREEEEAEESEAEESDAESEDESEEEEEDEDREREEDEREDREERERDDESERALS 
TSTS: 
INC $TESTN ; INCREMENT TEST NUMBER 
177572 MOV #160000 , 84177572 sLOAD MMRO<15:13>-111 
CLR FLAG ;CLEAR MMU ABORT FLAG 
MOV 9#SRO,RO ;SAVE SRO IN RO 
BIC #176,R0 ;CLEAR — BITS FROM SRO 
CMP RO, #160000 pence 
BEQ 1% 
ERROR FALL ERRORS TO TRAP TO EMT VECTOR 
. WORD 75 ; UNIQUE ERROR NUMBER 
. WORD MMUERR ;sADDRESS OF ERROR MESSAGE 
: 
1$: CLR 80177572 ;LOAD MMRO=0 
MOV @@SRO,RO sSAVE SRO IN RO 
BIC #176,RO0 ;CLEAR UNDEFINED BITS FROM SRO 
CMP RO, #0 — MMRO 
BEQ 2$ 
ERROR FALL ERRORS TO TRAP TO EMT VECTOR 
. WORD 76 :; UNIQUE ERROR NUMBER 
. WORD MMUERR ;ADDRESS OF ERROR MESSAGE 
& 
177572 23: MOV #120000 ,8¢177572 sLOAD MMRO<15:13>-=101 
MOV BeESRO,RO ;SAVE SRO IN RO 
BIC #176,R0 ;CLEAR — BITS FROM SRO. 
CMP RO, #120000 oe 
BEQ 3$ 
ERROR FALL ERRORS TO TRAP TO EMT VECTOR 
. WORD 77 ; UNIQUE ERROR NUMBER 
. WORD MMUERR sADDRESS OF ERROR MESSAGE 
2 
177572 3%: MOV €40000 .8¢177572 s;LOAD MMRO<15:13>-=010 
MOV BeSRO,RO ;SAVE SRO IN RO 
BIC #176, "RO ;CLEAR — BITS FROM SRO. 
ERROR FALL ERRORS TO TRAP TO EMT VECTOR 
. WORD 100 ; UNIQUE ERROR NUMBER 
‘i . WORD MMUERR sADORESS OF ERROR MESSAGE 
TSMMU6 : 
SS PHOSSASEAEHSSSHASSSEAASEAHOSACHACHRAEAEAEAAARAAAEARARERERARALELS 
s*#TEST 6 TEST MMRS BITS 5-0 
LEE neta ee senesesaSESASeseodnseseascenesanassonesoncosacese 
TST6: 
INC $TESTN : INCREMENT TEST NUMBER 
CLR 80177572 3;MMU OFF 
CLR FLAG s;CLEAR MMU ABORT FLAG 
172516 MOV $77,.80172516 ;LOAD MMR3<5:0>277 


SEQ 9033 


GLOBAL 


KDJLIA, 


AREAS 
MAC 


MACY11 30AC1052) 20-MAR-84 
20-MAR-84 11:19 T6 


023727 
001403 


172516 


172516 
172516 


000052 
172516 


000025 
172516 


173260 
177572 


000 
177572 
030010 


177572 


000077 


172516 
000052 


172516 
000025 


177776 


177776 


177776 
172516 


000244 
171764 


177776 


1$: 


2$: 


3$: 


4$: 
TSMMG6A: 


Lo 


11:31 


PAGE 34 
TEST MMRS BITS 5-0 
a + ‘meatal ‘ao MMR 3 
ERROR FALL ERRORS TO TRAP TO EMT VECTOR 
-WORD 101 s UNIQUE ERROR NUMBER 
-WORD MMUERR sADDRESS OF ERROR MESSAGE 
CLR 80172516 sLOAD MMR3<5:0>0 
CMP 80172516, 0 — a MMRS 
BEQ 2s 
ERROR FALL ERRORS TO TRAP TO EMT VECTOR 
-WORD 102 s UNIQUE ERROR ER 
. WORD RR sADDRESS OF ERROR MESSAGE 
MOV #52 ,80172516 ; LOAD —_ 
CMP 80172516, 452 a ae 
BEQ 3$ 
ERROR FALL ERRORS TO TRAP TO EMT VECTOR 
-WORD 103 ; UNIQUE ERROR NUMBER 
-WORD MMUERR sADDRESS OF ERROR MESSAGE 
MOV #25 ,80172516 sLOAD MMR3<5:0>=25 
a mad aia ites MMRS 
ERROR SALL ERRORS TO TRAP TO EMT VECTOR 
-WORD 104 s UNIQUE ERROR NUMBER 
-WORD MMUERR sADDRESS OF ERROR MESSAGE 


: § PPSSSASSSSESEASEAAEHEASEOEEEELESASESSASLESEEASARADEEALELSERALERESE 


s#TEST 7 TEST MFPI (MOVE FROM PREVIOUS INST SPACE) 
§ F PPAAOESASASEEESEESASEAERACEEAESEADADADEDASOEEEEDEREEDERDEZEAEES 
TST7: 


1$: 


INC $STESTN ; INCREMENT TEST NUMBER 

CLR 80177572 3MMU OFF 

CLR QOF LAG ;CLEAR MMU ABORT FLAG 

MOV #140000 ,80177776 sPOINT TO USER SPACE 

MOV @STBOT SP ;INIT THE USER STACK POINTER 
MOV R6, BESAVUSE ;SAVE USER SP 

MOV 040000, 80177776 sPOINT TO SUPERVISOR SPACE 
MOV @STBOT SP sINIT THE SUPERVISOR STACK POINTER 
MOV R6, B@SAVSUP ;SAVE SUPERVISOR SP 

MOV #30000 ,80177776 ;SETUP PSW 

JSR PC MMU sINIT MMU 

MOV 027 ,80172516 3; SETUP 


MMRS 
MOV 90244, -(SP) sSAVE DATA AT TEST LOCATION 


MOV 177777, -CSP) sPUT KNOWN DATA ON TOP OF STACK 
MOV #135072 ,80244 : SETUP DATA AT TEST LOCATION 
MOV #77400, 0 ;SETUP UDPDRO TO ABORT 
MOV $244 ,R3 ;SETUP POINTER TO TEST LOCATION 
INC 80177572 3; TURN ON 
MF PI (R3)- ; TEST INSTRUCTION 
CMP “+ etated cell ie :IS PSW CORRECT 
BEQ i$ .ES GO ON 
ERROR 7 ALL ERRORS TO TRAP TO EMT VECTOR 
. WORD 105 s; UNIQUE ERROR ER 
.WORD MMUERR ;sADDRESS OF ERROR MESSAGE 

:;NO GO 1G ERROR 
CLR 84177572 ; TURN MMU OFF 


SEQ 0034 


GLUBAL. 


AREAS 


KDJLLA.MAC 


MACY11 30A( 1052) 
20-MAR-84 11:19 


012737 


012737 


140000 
001070 


040000 
001066 


000244 


000246 


177776 
135072 


177777 


177572 
030011 


177572 
000244 


20 -MAR -84 
T7 


177776 


177776 


135072 


177776 
000244 


177776 


173621 


100$: 


2005: 


2s: 


3$: 


4$: 


5$: 


300$: 


11:31 





PAGE 35 
TEST MFPI CMOVE FROM PREVIOUS INST SPACE) 
MOV #140000 ,80177776 sPOINT TO USER SPACE 
CMP R6 , BOSAVUSE :IS USER SP CORRECT 
BEQ 100$ : YES GO ON 
ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 
. WORD 106 s UNIQUE ERROR NUMBER 
. WORD MMUERR ;ADDRESS OF ERROR MESSAGE 
:;NO GO TO ERROR 
MOV #40000 , 80177776 ;sPOINT TO SUPERVISOR SPACE 
CMP R6 , B6SAVSUP ;IS SUPERVISOR SP CORRECT 
BEQ 200$ :;YES GO 
ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
. WORD 107 ; UNIQUE ERROR NUMBER 
. WORD MMUERR sADDRESS OF ERROR MESSAGE 
;NO GO 10 ERROR 
CMP 80244 , #135072 :I1S TEST DATA OK 
BEQ 2s ;YES GO ON 
ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 
. WORD 110 ; UNIQUE ERROR NUMBER 
. WORD MMUERR ;sADDRESS OF ERROR MESSAGE 
;NO GO 10 ERROR 
CMP R3,%246 :IS R3 CORRECT 
BEQ 3$ :YES GO ON 
ERROR ;sALL ERRORS TO TRAP TO EMT VECTOR 
. WORD 111 ; UNIQUE ERROR NUMBER 
. WORD MMUE ;ADDRESS OF ERROR MESSAGE 
:NO GO TO ERROR 
CLR 90177776 ;SET PSW TO KERNEL MODE 
CMP (SP )+, #135072 ;IS KERNEL STACK CORRECT 
BEQ 4$ ;YES GO ON 
ERROR ;sALL ERRORS TO TRAP TO EMT VECTOR 
. WORD ile ; UNIQUE ERROR NUMBER 
. WORD MMUERR sADDRESS OF ERROR MESSAGE 
s;NO GO TO ERROR 
(SP),0177777 :I1S STACK CORRECT 
S$ :;YES GO ON 
;ALL ERRORS TO TRAP TO EMT VECTOR 
113 ; UNIQUE ERROR NUMBER 
MMUERR sADDRESS OF ERROR MESSAGE 
sNO GO 10 ERROR 
30017 ,80177776 ;SETUP PSW 
#173621 ,80244 ;SETUP TEST LOCATION 
| 6244 ,R1 :;SETUP R1 
INC 80177572 ; TURN MMU ON 
MF PI CR1) ;TEST INSTRUCTION 
CMP 030011 ,80177776 ;IS PSW CORRECT 
BEQ 300$ :YES GO ON 
ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 
. WORD 114 sUNIQUE ERROR NUMBER 
- WORD MMUERR sADDRESS OF ERROR MESSAGE 
:NO GO TO ERROR 
CLR 84177572 37 MMU OFF 
CMP 84244 , 173621 :IS TEST LOCATION CORRECT 
BEQ 301$ :;YES GO ON 
ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 
. WORD 115 ; UNIQUE ERROR NUMBER 
. WORD MMUERR :;ADDRESS OF ERROR MESSAGE 


GLOBAL ARE 


AS 


KDJL1LA.MAC 


001403 


001403 


001403 


012637 


000244 


177776 
173621 


177777 


177572 
000004 


177572 
000000 


177777 


000244 


MACY11 30A(1052) 20-MAR-84 
20-MAR-84 11:19 T7 


177776 


KS 
11:31 


PAGE 36 
TEST MFPI CMOVE FROM PREVIOUS INST SPACE) 
;NO GO TO ERROR 


SEQ 9036 


301$: CMP R1,@244 :;IS R1 CORRECT 
BEQ 302$ ;YES GO ON 
ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 
. WORD 116 s UNIQUE ERROR NUMBER 
. WORD MMUERR ;ADDRESS OF ERROR MESSAGE 
sNO GO TO ERROR > 
3025: CLR 80177776 ;SET PSW TO KERNEL MODE 
CMP (SP)+, #173621 31S STACK CORRECT 
BEQ 303$ ;YES ON 
ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 
. WORD 117 ; UNIQUE ERROR NUMBER 
. WORD MMUERR ;ADDRESS OF ERROR MESSAGE 
:;NO GO TO ERROR 
3033: CMP (SP),#177777 :IS STACK CORRECT 
BEQ 304$ ;YES GO ON 
ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 
. WORD 120 s UNIQUE ERROR NUMBER 
. WORD MMUERR sADDRESS OF ERROR MESSAGE 
;NO GO TO ERROR 
304$: CLR R3 ;SETUP SOURCE FOR NEXT TEST 
INC 80177572 3; TURN MMU ON 
MF PI R3 ; TEST INSTRUCTION 
CMP 24 ,80177776 :IS PSW CORRECT 
BEQ 6$ ;YES GO ON 
ERROR ;sALL ERRORS TO TRAP TO EMT VECTOR 
. WORD 121 ; UNIQUE ERROR NUMBER 
. WORD MMUERR ;ADDORESS OF ERROR MESSAGE 
:;NO GO TO ERROR 
6$: CLR 80177572 ; TURN MMU OFF 
CMP R3,20 :IS R3 CORRECT 
BEQ 7$ ;YES GO ON 
ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
. WORD 122 :; UNIQUE ERROR NUMBER 
. WORD MMUERR sADDRESS OF ERROR MESSAGE 
s;NO GO 10 ERROR 
7$: CMP CSP )+, 00 31S STACK CORRECT 
BEG 8$ YES GO ON 
ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 
. WORD 123 s UNIQUE ERROR NUMBER 
. WORD MMUERR ;ADDRESS OF ERROR MESSAGE 
3;NO GO TO ERROR 
8$: CMP CSP )+,@177777 :IS STACK CORRECT 
BEQ 9$ ;YES GO ON 
ERROR :;ALL ERRORS TO TRAP TO EMT VECTOR 
. WORD 124 ; UNIQUE ERROR NUMBER 
. WORD MMUERR ;ADDRESS OF ERROR MESSAGE 
sNO GO 10 ERROR 
9$: MOV (SP)+,80244 sRESTORE TEST LOCATION 
; 
TSMM6B : 


5 5 F4ESEOEO44O44444446464660666640460604646464640000666640046606060000004086 086 


TEST MFPD (MOVE FROM PREVIOUS DATA SPACE) 


;#TEST 10 


55 FFF OOEEE4EOOOESO4440646466440064664064606060464646046460646464000606460060000000000680608 


TST10: 


LS 


GLOBAL AREAS MACY11 30AC1052) 20-MAR-84 11:31 PAGE 37 SEQ 0037 
KDJ11A.MAC 20-MAR-84 11:19 T10 TEST MFPD (MOVE FROM PREVIOUS DATA SPACE) 

1717 006262 005267 172516 INC $TESTN s INCREMENT TEST NUMBER 

1718 006266 005037 177572 CLR 80177572 sMMU OFF 

1719 006272 37 001042 CLR @OF LAG ;CLEAR MMU ABORT FLAG 

1720 006276 012737 140000 177776 MOV #140000 ,80177776 sPOINT TO USER SPACE 

1721 006 010637 001070 MOV R6 , B@SAVUSE ;SAVE USER SP 

1722 006310 012737 0000 177776 MOV #40000 ,80177776 sPOINT TO SUPERVISOR SPACE 

1723 006316 010637 001066 MOV R6 , B@SAVSUP sSAVE SUPERVISOR SP 

1724 006322 012737 177776 MOV #30000 , 80177776 ;sSETUP PSW 

1725 006330 004767 172752 JSR PC MMU sINIT MMU 

1726 006334 012737 000027 172516 MOV @27,80172516 ;SETUP MMR3 

1727 006342 013746 000244 MOV 80244 , -(SP) sSAVE DATA AT TEST LOCATION 

1728 006346 012746 177777 MOV #177777,-CSP) sPUT KNOWN DATA ON TOP OF STACK 

1729 006352 012737 157002 000244 MOV #157002 ,80244 sSETUP DATA AT TEST LOCATION 

1730 006360 012767 077400 171212 MOV #77400, UIPDRO sSETUP UIPDRO TO ABORT 

1731 006366 012703 000244 MOV 9244 ,R3S sSETUP POINTER TO TEST LOCATION 

1732 006372 37 177572 INC 84177572 ;TURN MMU ON 

1733 006376 106523 MF PO CR3)+ ; TEST INSTRUCTION 

1734 0064 022737 030010 177776 CMP #30010 ,80177776 ;IS PSW CORRECT 

1735 006406 001403 BEG i$ ;YES GO ON 

1736 006410 104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 

1737 006412 000125 -WORDB 125 ; UNIQUE ERROR NUMBER 

1738 006414 001213 -WORD MMUERR sADDRESS OF ERROR MESSAGE 

1739 ;NO GO TO ERROR 

1740 006416 005037 177572 1$: CLR 80177572 ;TURN MMU OFF 

1741 006422 012737 140000 177776 MOV #140000 ,80177776 sPOINT TO USER SPACE 

1742 006430 020637 001070 CMP R6 , B6SAVUSE ;IS USER SP CORRECT 

1743 006434 001403 BEQ 100$ ;YES GO ON 

1744 006436 104000 ERROR ;ALL_ ERRORS TO TRAP TO EMT VECTOR 

1745 006440 000126 -WORD 126 s UNIQUE ERROR NUMBER 

1746 006442 001213 -WORD MMUERR sADDRESS OF ERROR MESSAGE 

1747 sNO GO TO ERROR 

1748 006444 012737 040000 177776 100$: MOV #40000 , 80177776 sPOINT TO SUPERVISOR SPACE 

1749 006452 020637 001066 CMP R6 , B@SAVSUP :IS SUPERVISOR SP CORRECT 

1750 006456 001403 BEQ 200$ ;YES GO ON 

1751 006460 104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 

1752 006462 000127 -WORD 127 ; UNIQUE ERROR NUMBER 

1753 006464 001213 -WORD MMUERR sADDRESS OF ERROR MESSAGE 

1754 sNO GO TO ERROR 

1755 006466 023727 000244 157002 200%: CMP 96244 , #157002 :IS TEST DATA OK 

1756 006474 001403 BEQ es ;YES GO ON 

1757 006476 104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 

1758 006500 000130 -WORD 130 s UNIQUE ERROR NUMBER 

1759 006502 001213 .WORD MMUERR sADDRESS OF ERROR MESSAGE 

1760 sNO GO TO ERROR 

1761 006 020327 000246 2s: CMP R3, #246 :IS R3 CORRECT 

1762 006510 001403 BEQ 3$ sYES GO ON 

1763 006512 104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 

1764 006514 000131 -WORD 131 sUNIQUE ERROR NUMBER 

1765 006515 001213 -WORD MMUERR sADDRESS OF ERROR MESSAGE 

1766 sNO GO TO ERROR 

1767 006520 005037 177776 3$: CLR 80177776 sSET PSW TO KERNEL MODE 

1768 006524 022627 157002 CMP (SP)+,#157002 3IS KERNEL STACK CORRECT 

1769 006530 001403 BEQ 4% ;YES GO ON 

1770 006532 104000 ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 

1771 006534 000132 -WORD 132 ; UNIQUE ERROR NUMBER 

1772 006536 001213 .WORD MMUERR sADDRESS OF ERROR MESSAGE 


MS 


OBAL AREAS _ MACY11 30A(1052) 20-MAR-84 11:31 PAGE 3 
ROJIIA.HAC © 20°HAR Baa 1549 Tio“ 'TEst MED CMOVE FROM PREVIOUS DATA SPACE) 7a Sone 

1773 :NO GO TO ERROR 

1774 006540 021627 177777 4s: CMP = (SP),@177777 :IS STACK CORRECT 

1775 006544 001403 BEQ sé :YES GO ON 

1776 006546 104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 

1777 006550 000133 -WORD 133 UNIQUE ERROR NUMBER 

1778 006552 001213 “WORD  MMUERR sADDRESS OF ERROR MESSAGE 

1779 :NO GO TO ERROR 

1780 006554 012737 030017 177776 Ss: MOV =: @30017,0177776 SETUP PSW 

1781 006562 012737 103456 000244 MOV © #103456, 9244 :SETUP TEST LOCATION 

1782 006570 012701 000244 MOV = @244,R1 SETUP R1 

1783 006574 005237 177572 INC  a@177572 sTURN MMU ON 

1784 006600 106511 MFPD = (R1) sTEST INSTRUCTION 

1785 006602 022737 030011 177776 CMP = =-s- #30011, #177776 IS PSW CORRECT 

1786 006610 001403 BEQ 3008 sYES GO ON 

1787 006612 104000 ERROR sALL_ERRORS TO TRAP TO EMT VECTOR 

1788 006614 000134 WORD 134 ;UNIQUE ERROR NUMBER 

1789 006616 001213 WORD  MMUERR sADDRESS OF ERROR MESSAGE 

1790 :NO GO TO ERROR 

1791 006620 005037 177572 300$: CLR 90177572 sTURN MMU OFF 

1792 006624 023727 000244 103456 CMP = =-_- #244, 0103456 IS TEST LOCATION CORRECT 

1793 006632 001403 BEQ 3018 :YES GO ON 

1794 006634 104000 ERROR ;ALL_ ERRORS TO TRAP TO EMT VECTOR 

1795 006636 000135 -WORD 135 sUNIQUE ERROR NUMBER 

1796 006640 001213 -WORD  MMUERR sADDRESS OF ERROR MESSAGE 

1797 :NO GO TO ERROR 

1798 006642 020127 000244 301$: CMP R1,0244 ;IS R1 CORRECT 

1799 006646 001403 BEQ = 3028 :YES GO ON 

1800 006650 104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 

1801 006652 000136 -WORD 136 ;UNIQUE ERROR NUMBER 

1802 006654 001213 -WORD  MMUERR sADDRESS OF ERROR MESSAGE 

1803 :NO GO TO ERROR 

1804 006656 005037 177776 302$: CLR § 90177776 SET PSW TO KERNEL MODE 

1805 006662 022627 103456 CMP = =—_s« (SP) + , 0103456 :IS STACK CORRECT 

1806 006666 001403 BEQ = 3038 :YES GO ON 

1807 006670 104000 ERROR sALL_ERRORS TO TRAP TO EMT VECTOR 

1808 006672 000137 “WORD 137 ;UNIQUE ERROR NUMBER 

1809 006674 001213 “WORD  MMUERR :ADDRESS OF ERROR MESSAGE 

1810 :NO GO TO ERROR 

1811 006676 021627 177777 303$: CMP § (SP),0177777 sIS STACK CORRECT 

1812 006702 001403 304% :YES GO ON 

1813 006704 104000 sALL ERRORS TO TRAP TO EMT VECTOR 

1814 006706 000140 140 ;UNTQUE ERROR NUMBER 

1815 006710 001213 MMUERR sADDRESS OF ERROR MESSAGE 

1816 :NO GO TO ERROR 

1817 006712 012737 030017 177776 4304S: 030017,80177776 :SETUP PSW 

1818 006720 012737 113672 000244 11367200244 sSETUP TEST LOCATION 

1819 006726 012701 000246 0246 ,Ri ;SETUP Ri 

1820 006732 005237 177572 INC 90177572 :TURN MMU_ON 

1821 006736 106541 MFPD = -(R1) sTEST INSTRUCTION 

1822 006740 022737 030011 177776 CMP = =-s- @30011,90177776 :IS PSW CORRECT 

1823 006746 001403 BEQ 4008 sYES GO ON 

1824 006750 104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 

1825 006752 000141 “WORD 141 :UNIQUE ERROR NUMBER 

1826 006754 001213 .WORD  MMUERR sADDRESS OF ERROR MESSAGE 

1827 :NO GO TO ERROR 

1828 006756 005037 177572 400$: CLR 90177572 :TURN MMU OFF 
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1629 006762 023727 000244 113672 CMP 20244 , #113672 sIS TEST LOCATION CORRECT 

1830 006770 001403 BEG 401$ ;YES GO ON 

1831 006772 104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 

1832 006774 000142 -WORD 142 s UNIQUE ERROR NUMBER 

1833 006776 001213 .WORD MMUERR sADDRESS OF ERROR MESSAGE 

1834 ;NO GO 10 ERROR 

1835 00/099 020127 000244 401$: CMP R1,%244 ;IS Ri CORRECT 

1836 007004 001403 BEQ 402$ ;YES GO ON 

1837 007006 104000 ERROR sALL_ ERRORS TO TRAP TO EMT VECTOR 

1838 007010 000143 -WORD 143 sUNIQUE ERROR NUMBER 

18359 007012 001213 -WORD MMUERR ;ADDRESS OF ERROR MESSAGE 

1840 ;NO GO 10 ERROR 

18641 007014 005037 177776 402$: CLR 84177776 ;SET PSW TO KERNEL MODE 

1842 007020 022627 113672 CMP (SP)+,#113672 sIS STACK CORRECT 

1843 007024 001403 BEQ 403$ ;YES GO ON 

1844 007026 104000 ERROR ;ALL_ ERRORS TO TRAP TO EMT VECTOR 

1845 9007030 000144 -WORD 144 s UNIQUE ERROR NUMBER 

1846 007032 001213 -WORD MMUERR sADDRESS OF ERROR MESSAGE 

1847 sNO GO 10 ERROR 

1848 007034 021627 177777 403$: CMP (SP),4177777 ;IS STACK CORRECT 

1849 007040 001403 BEQ 404$ ;YES GO ON 

1850 007042 104000 ERROR SALL ERRORS TO TRAP TO EMT VECTOR 

1851 007044 000145 -WORD 145 s UNIQUE ERROR NUMBER 

1852 007046 001213 -WORD MMUERR sADDRESS OF ERROR MESSAGE 

1853 sNO GO 10 ERROR 

1854 007050 005003 404$: CLR RS ;SETUP SOURCE FOR NEXT TEST 

1855 007052 005237 177572 INC 80177572 ; TURN MMU ON 

1856 007056 106 MF PD RS ; TEST INSTRUCTION 

1857 007060 022737 000004 177776 CMP 04 ,80177776 ;IS PSW CORRECT 

1858 007066 001403 BEQ 6$ ;YES GO ON 

1859 007070 104 ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 

1860 007072 000146 -WORD 146 ;UNIQUE ERROR NUMBER 

1861 007074 001213 -WORD MMUERR sADDRESS OF ERROR MESSAGE 

1862 sNO GO TO ERROR 

1865 007076 005037 177572 6$: CLR a¢177572 ; TURN OF F 

1864 007102 020327 000000 CMP R35, 00 ;IS R3 CORRECT 

1865 007106 001403 7$ :YE ON 

1866 007110 104 sALL ERRORS TO TRAP TO EMT VECTOR 

1867 007112 000147 147 ; UNIQUE ERROR NUMBER 

1868 007114 001213 MMUERR sADDRESS OF ERROR MESSAGE 

1869 sNO GO TO ERROR 

1870 007116 022627 000000 7$: CSP)+, #0 :IS STACK CORRECT 

1871 007122 001403 8$ ;YES GO ON 

1872 007124 104000 sALL ERRORS TO TRAP TO EMT VECTOR 

1873 007126 000150 150 sUNIQUE ERROR NUMBER 

1874 007130 001213 MMUERR sADDRESS OF ERROR MESSAGE 

1875 sNO GO 10 ERROR 

1876 007132 022627 177777 8$: (SP )+,0177777 sIS STACK CORRECT 

1877 007136 001403 9$ ;YES GO ON 

1878 007140 104000 sALL ERRORS TO TRAP TO EMT VECTOR 

1879 007142 000151 ; 151 s UNIQUE ERROR ER 

1880 007144 001213 -WORD MMUERR sADDRESS OF ERROR MESSAGE 

1881 sNO GO TO ERROR 

pei 007146 012637 000244 9$: MOV (SP )+,a@0244 sRESTORE TEST LOCATION 





Ai. AREAS 


GLOB 
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1885 
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MAC 


007152 


001403 


001403 


MACY11 30A( 1052) 
20-MAR-84 11:19 


000244 
177572 


030010 


177572 
140000 
001070 


040000 
001066 


000244 


000246 


3 2} 





20 -MAR-84 11:51 SAGE 40 
T10 TEST MFPD (MOVE FROM PREVIOUS DATA SPACE ) 
TSMMGC : 
bE OPSSSSSESEEEEESESEESESESEESEESEEEDESEEEEEESEEEDEEEEEEOOEEOEESESS 
seTEST 11 TEST MTPI CMOVE TO PREVIOUS INSTRUCTION SPACE) 
bE SPSSOSESEOEESEEEOODEFEEEEOEEOEEOOOO86000005600000406066606006666808 
TSTiIl: 
INC STESTN s INCREMENT TEST NUMBER 
CLR 80177572 sMMU OFF 
CLR BOF LAG ;CLEAR MMU ABORT FLAG 
177776 MOV #140000 , 80177776 sPOINT TO USER SPACE 
MOV R6 , BESAVUSE s;SAVE USER SP 
177776 MOV 040000, 80177776 sPOINT TO SUPERVISOR SPACE 
MOV R6, B@SAVSUP ‘one VISOR SP 
177776 MOV @30000 ,80177776 ;SETUP PSw 
JSR PC MMU sINIT MMU 
172516 MOV @27,80172516 s;SETUP MMR 
MOV 80244, -( SP) sSAVE DATA AT TEST LOCATION 
MOV 0177777, -CSP) sPUT KNOWN DATA ON STACK 
MOV 120413, -( SP) sPUT TEST DATA ON STACK 
000244 MOV 177777,80244 sPUT KNOWN DATA AT TEST LOCATION 
170336 MOV @77400,, UDPDRO sSETUP UDPDRO TO ABORT 
MOV 0244 ,R3 ;sSETUP POINTER TO TEST LOCATION 
INC 80177572 3 TURN MMU ON 
MTPI (R3)- ; TEST INSTRUCTION 
177776 CMP @30010,80177776 :IS PSW CORRECT 
BEQ i$ sYES GO ON 
ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
. WORD 152 sUNIQUE ERROR NUMBER 
. WORD MMUERR sADORESS OF ERROR MESSAGE 
sNO GO 19 ERROR 
18: CLR 80177572 3;TURN MMU OFF 
177776 MOV #140000 ,80177776 sPOINT TO USER SPACE 
CMP R6 ,. BOSAVUSE 3IS USER SP CORRECT 
BEQ 100% :YES GO ON 
ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
. WORD 153 sUNIQUE ERROR NUMBER 
. WORD MMUE sADORESS OF ERROR MESSAGE 
sNO GO TO ERROR 
177776 1008: MOV ©40000 , 80177776 sPOINT TO SUPERVISOR SPACE 
CMP R6 , BOSAVSUP :IS SUPERVISOR SP CORRECT 
200% :YES GO ON 
sALL ERRORS TO TRAP TO EMT VECTOR 
154 sUNIQUE ERROR NUMBER 
MMUERR sADDRESS OF ERROR MESSAGE 
sNO GO TO ERROR 
120413 2003: 90244 , 0120413 :IS TEST LOCATION CORRECT 
2$ YES GO ON 
sALL ERRORS TO TRAP TO EMI VECTOR 
: 155 :UNIQUE ERROR NUMBER 
-WORD MMUERR sADDRESS OF ERROR MESSAGE 
sNO GO 10 ERROR 
23: CMP R3,9245 sIS R3 CORRECT 
BEQ 33% sYES GO ON 
ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
. WORD 156 sUNIQUE ERROR NUMBER 
.WORD MMUERR sADDRESS OF ERROR MESSAGE 


sNO GO TO ERROR 


SEQ 9040 


KDUTIA MAE ao AAAs SPRL PG52> 20 -MAR- Ba teh TPARBr“tmove to PREVIOUS INSTRUCTION 


012746 


001403 


177572 
030011 


177572 
000244 


000244 


177776 
177777 


177572 
030011 


177572 
000244 


5$: 


177776 4$: 


177776 


145121 


177776 


177776 


122347 


3003: 


3018: 


30238: 


3045: 


400$: 


CLR 





C4 


80177776 
aor <OS rr ree 
3 


157 

MMUERR 
©30017,80177776 
#145121, -(SP) 
0244 ,R1 
80177572 

(Ri) 

#30011 ,80177776 
3500$ 

160 

MMUERR 
80177572 

80244 ,@145121 
3018 

161 

MMUERR 

R1,0244 

3028 

162 

MMUERR 


80177776 
(SP),0177777 
304 $ 





165 
MMUERR 


©30017,80177776 


@30011, 80177776 
400% 

164 

MMUERR 

90177572 
90244 , 0122347 
4013 


165 
MMUERR 


SPACE ) 


3;SET PSW TO KERNEL MODE 
sIS KERNEL STACK CORRECT 
sYES GO ON 
sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 
ADDRESS OF ERROR MESSAGE 
sNO GO TO ERROR 
;SETUP PSw 
sSETUP TEST DATA 
sSETUP R1 
; TURN MMU ON 
sTEST INSTRUCTION 
3IS PSW CORRECT 
sYES GO ON 
sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 
sNO GO 1 ERROR 
3; TURN MMU OFF 
3IS TEST LOCATION CORRECT 
:YES GO ON 
sALL ERRORS TO on al TO EMT VECTOR 
s UNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 
;NO GO v4 ERROR 
:IS R1 CORRECT 
sYES GO ON 
sALL ERRORS TO TRAP TO EMT VECTOR 
; UNIQUE ERROR NUMBER 
sADORESS OF ERROR MESSAGE 
sNO GO TO ERROR 
;SET PSW TO KERNEL MODE 
:IS STACK CORRECT 
:;YES GO ON 
;ALL ERRORS TO owl TO EMT VECTOR 
sUNIQUE ERROR NUMBER 
;ADDRESS OF ERROR MESSAGE 
sNO GO 26 ERROR 
sSETUP PSwW 
s;SETUP TEST DATA 
:;SETUP Ri 





3; TURN MMU ON 
:;TEST INSTRUCTION 
:IS PSW CORRECT 
:YES GO ON 
sALL ERRORS TO TRAP TO EMT VECTOR 
; UNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 
sNO GO TO ERROR 
3; TURN 


MMU OF 
‘IS TEST 1 ScaTron CORRECT 
YES GO ON 
sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 
3NO GO TO ERROR 
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GLOBAL AREAS MACY11 30A(1052) 20-MAR-84 11:31 PAG: 42 SEQ 0042 
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1997 007640 020127 000244 4015: CMP R1,0244 sIS Ri CORRECT 
1998 007644 001403 BEG 402% sYES GO ON 
1999 007646 104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
2000 007650 000166 -WORD 166 sUNIQUE ERROR NUMBER 
2001 007652 001213 .WORD MMUERR ’ SS OF ERROR MESSAGE 
2002 sNO GO TO ERROR 
2003 007654 005037 177776 402%: CLR 80177776 sSET PSW TO KERNEL MODE 
2004 007660 021627 177777 CMP CSP),0177777 3IS STACK CORRECT 
2005 007664 001403 BEQ 404$ sYES GO ON 
2006 007666 104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
2007 007670 000167 -WORD 167 sUNIQUE ERROR NUMBER 
2008 007672 001213 -WORD  MMUERR sADDRESS OF ERROR MESSAGE 
2009" ;NO GO TO ERROR 
2010 007674 005046 404%: CLR -(SP) sSETUP STACK FOR NEXT TEST 
2011 007676 005237 177572 INC 80177572 ;TURN MMU ON 
2012 007702 006603 MTPI R3 s TEST INSTRUCTION 
2013 007704 022737 000004 177776 CMP 0480177776 3IS PSW CORRECT 
2014 007712 001403 SEQ 5$ ;YES GO ON 
2015 007714 104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
2016 007716 000170 -WORD 170 sUNIQUE ERROR NUMBER 
2017 007720 001213 .WORD MMUERR sADDRESS OF ERROR MESSAGE 
2018 sNO GO TO ERROR 
2019 007722 005037 177572 S$: CLR 80177572 ;TURN MMU OFF 
2020 007726 020327 000000 CMP R3,00 3IS R3 CORRECT 
2021 007732 001403 BEG 6% sYES GO ON 
2022 007734 104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
2023 007736 000171 -WORD 171 sUNIQUE ERROR NUMBER 
2024 007740 001213 -WORD MMUERR sADORESS OF ERROR MESSAGE 
2025 sNO GO TO ERROR 
2026 007742 022627 177777 6$: CMP CSP )+, 0177777 3IS STACK CORRECT 
2027 007746 001403 BEQ 7$ ;YES Go ON 
2028 007750 104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
2029 007752 000172 -WORD 172 sUNIQUE ERROR NUMBER 
2030 007754 001213 -WORD MMUERR sADDRESS OF ERROR MESSAGE 
2031 ;NO GO TO ERROR 
one 007756 012637 000244 7$: MOV (SP )+ 80244 sRESTORE TEST LOCATION 
2034 3 
2035 007762 TSMM6D : 
2036 5 SPOSOSHOEEOSEOEOOO4OO6O4OOOO4O006000000006000004600000000600000088 
2037 s*#TEST 12 TEST MTPD (MOVE TO PREVIOUS DATA SPACE) 
2038 $F SPSS SSSESSEASEOEHOAEEEEEHEREEEEEEEEREDEEREREEEREDOEEAEEEDEEEELE 
2040 007762 005267 171016 INC STESTN s INCREMENT TEST NUMBER 
2041 007766 005037 177572 CLR 80177572 sMMU OFF 
2042 007772 005037 001042 CLR QOF LAG sCLEAR MMU ABORT FLAG 
2043 007776 012737 14 177776 MOV #140000 ,80177776 sPOINT TO USER SPACE 
2044 010004 010637 001070 MOV R6 , BOSAVUSE sSAVE USER SP 
2045 010010 012737 040000 177776 MOV #40000 ,80177776 sPOINT TO SUPERVISOR SPACE 
2046 010016 010637 001066 MOV R6 ,B@SAVSUP sSAVE SUPERVISOR SP 
2047 010022 012737 177776 MOV 930000 ,80177776 sSETUP PSw 
2048 010030 004767 171252 JSR PC MMU sINIT MMU 
2049 010034 012737 000027 172516 MOV $27 ,80172516 sSETUP MMRS 
2050 010042 013746 000244 MOV 90244, -(SP) sSAVE DATA AT TEST LOCATION 
2051 010046 012746 177777 MOV 0177777, -(SP) sPUT KNOWN DATA ON STACK 
2052 010052 012746 1 MOV #100004, -( SP) sPUT TEST DATA ON STACK 


E4 


GLOBAL AREAS MACY11 OM $652) 20-MAR-84 11:31 P 43 SEQ 9047 
KDJL1A.MAC 20-MAR-84 11:19 T12 TEST MTPD (MOVE TO PREVIOUS DATA SPACE) 
2053 010056 012737 177777 000244 MOV 0177777,80244 sPUT KNOWN DATA AT TEST LOCATION 
2054 010064 012767 077400 167506 MOV @77400 , UIPDRO sSETUP UIPDRO TO ABORT 
2055 010072 012703 000244 MOV 0244 ,R3 sSETUP POINTER TO TEST LOCATION 
20 010076 005237 177572 INC 80177572 ;TURN MMU ON 
2057 010102 106623 MTPD CR3)-+ s TEST INSTRUCTION 
2058 010104 022737 030010 177776 CMP 030010 ,80177776 sIS PSW CORRECT 
2059 010112 001403 BEG i$ sYES GO ON 
2060 010114 104000 ERROR sALL_ ERRORS TO TRAP TO EMT VECTOR 
2061 ©10116 000173 -WORD 173 sUNIQUE ERROR NUMBER 
2062 010120 001213 .WORD MMUERR sADDRESS OF ERROR MESSAGE 
2063 sNO GO r0 ERROR 
2064 010122 37 177572 1$: CLR 80177572 URN MMU OFF 
2065 010126 012737 140000 177776 MOV #140000 ,80177776 ;POINT TO USER SPACE 
2066 010134 020637 001070 CMP R6 , BOSAVUSE 3IS USER SP CORRECT 
2067 010140 001403 BEQ 100$ ;YES GO ON 
2968 010142 104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
2069 010144 000174 -WORD 174 s UNIQUE ERROR NUMBER 
2070 010146 001213 -WORD MMUERR sADDRESS OF ERROR MESSAGE 
2071 :NO GO 10 ERROR 
e072 010150 012737 040000 177776 100$: MOV @40000 , 86177776 sPOINT TO SUPERVISOR SPACE 
2073 010156 020637 001066 CMP R6 , BOSAVSUP ;IS SUPERVISOR SP CORRECT 
2074 010162 001403 BEQ 200$ sYES GO ON 
2075 010164 104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
2076 010166 000175 -WORD 175 sUNIQUE ERROR NUMBER 
2077 010170 001213 -WORD MMUERR sADDRESS OF ERROR MESSAGE 
2078 3NO GO 10 ERROR 
2079 010172 023727 000244 100004 200%: CMP 80244 , 2100004 ;IS TEST LOCATION CORRECT 
2080 010200 001403 BEG 2s ;YES GO ON 
2081 010202 104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
2082 010204 000176 -WORD 176 s UNIQUE ERROR NUMBER 
2085 010206 001213 . MMUERR sADDRESS OF ERROR MESSAGE 
2084 sNO GO 10 ERROR 
2085 010210 020327 000246 2$: CMP R3, 0246 :IS R3 CORRECT 
2086 010214 001403 BEQ 3% ;YES GO ON 
2087 010216 104000 ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 
2088 010220 000177 -WORD 177 s UNIQUE ERROR NUMBER 
2089 010222 001213 -WORD MMUERR sADDRESS OF ERROR MESSAGE 
2090 sNO GO TO ERROR 
2091 010224 005037 177776 3%: CLR 80177776 ;SET PSW TO KERNEL MODE 
2092 010230 021627 177777 CMP CSP),0177777 3IS KERNEL STACK CORRECT 
2093 010234 001403 BEQ 4$ ;YES GO ON 
2094 010236 104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
2095 010240 000200 -WORD 200 sUNIQUE ERROR NUMBER 
2096 010242 001213 -WORD MMUERR sADDRESS OF ERROR MESSAGE 
2097 sNO GO 10 ERROR 
2098 010244 012737 030017 177776 4$: MOV 030017 ,80177776 sSETUP PSW 
2099 010252 012746 10073 MOV #100737, -( SP) ;SETUP TEST DATA 
2100 010256 012701 000244 MOV 0244 ,R1 ;SETUP R1 
2101 010262 005237 177572 INC 80177572 sTURN MMU ON 
2102 010266 106611 MTPD CR1) sTEST INSTRUCTION 
2105 010270 622737 030011 177776 CMP ©30011,.80177776 3IS PSW CORRECT 
2104 010276 001403 BEG 3500$ sYES GO ON 
2105 010300 104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
2106 010302 000201 -WORD 201 sUNIQUE ERROR NUMBER 
2107 010304 001212 -WORD MMUERR sADDRESS OF ERROR MESSAGE 
2108 sNO GO 10 ERROR 


F4 


GLOBAi. AREAS MACY11 moe 2652) 2O-MAR-84 11:31 PAGE 44 SEQ 9044 
KDJL1LA.MAC 20-MAR-84 11 T12 TEST MTPD (MOVE TO PREVIOUS DATA SPACE) 
2109 010 005037 177572 300%: CLR 80177572 3 TURN MMU OFF 
2110 010312 023727 000244 100737 CMP 80244 , 100737 sIS TEST LOCATION CORRECT 
2111 010320 001403 BEG 301% »YES GO ON 
2112 010322 i04000 ERROR sALL ERRORS TO TRAP {0 EMT VECTOR 
2115 010324 000202 -WORD 202 sUNIQUE ERROR NUMBER 
2114 0103526 001213 -WORD MMUERR sADDRESS OF ERROR MESSAGE 
2115 ;NO GO TO ERROR 
2116 010330 020127 000244 301$: CMP R1,0244 ;IS RI CORRECT 
2117 010334 001403 BEQ 302$ sYES GO ON 
2118 010336 104 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
2119 010340 000203 -WORDB 203 s UNIQUE ERROR NUMBER 
2120 010342 001213 -WORD MMUERR sADDRESS OF ERROR MESSAGE 
2121 sNO GO 10 ERROR 
2122 010344 37 177776 302$: CLR 80177776 sSET PSW TO KERNEL MODE 
2125 010350 021627 177777 CMP (SP),0177777 :IS STACK CORRECT 
2124 010354 001403 BEQ 304 $ ;YES GO ON 
2125 010356 104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
2126 010360 000204 ‘ 204 sUNIQUE ERROR NUMBER 
2127 010362 001213 : MMUERR sADDRESS OF ERROR MESSAGE 
2128 3NO GO 10 ERROR 
2129 010364 012737 030017 177776 304%: MOV ©30017 ,80177776 ;sSETUP PSw 
2130 010372 012746 15671 MOV #156711, -(SP) sSETUP TEST DATA 
2131 010376 012701 000246 MOV #246 ,R1 sSETUP R1 
2132 010402 005237 177572 INC 8¢177572 ;TURN MMU ON 
21335 010406 106641 MTPD -(R1) ;TEST INSTRUCTION 
2134 010410 022737 030011 177776 030011 ,80177776 :IS PSW CORRECT 
2135 010416 001403 400$ ;YES GO ON 
2136 010420 104 sALL ERRORS TO TRAP TO EMT VECTOR 
2137 010422 000205 205 s UNIQUE ERROR NUMBER 
2138 010424 001213 _ MMUERR sADDRESS OF ERROR MESSAGE 
2139 sNO GO TO ERROR 
2140 010426 005037 177572 4003: 86177572 ;TURN MMU OFF 
2141 010432 023727 000244 156711 80244 , 156711 sIS TEST LOCATION CORRECT 
2142 010440 001403 401% :YES GO ON 
2143 010442 104000 sALL ERRORS TO TRAP TO EMT VECTOR 
2144 010444 206 -WORD 206 s UNIQUE ERROR NUMBER 
2145 010446 001213 .WORD MMUERR sADDRESS OF ERROR MESSAGE 
2146 3NO GO TO ERROR 
2147 010450 020127 000244 401%: CMP R1,0244 sIS Ril CORRECT 
2148 010454 001403 BEQ 402% ;YES GO ON 
2149 010456 104 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
2150 010460 000207 «WORD 207 s UNIQUE ERROR NUMBER 
2151 010462 001213 .WORD MMUERR sADDRESS OF ERROR MESSAGE 
2152 :NO GO 10 ERROR 
2155 010464 005037 177776 402%: CLR 90177776 ;SET PSW TO KERNEL MODE 
2154 010470 021627 177777 CMP CSP),0177777 3IS STACK CORRECT 
2155 010474 001403 BEQ 404$ sYES GO ON 
2156 010476 104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
2157 010500 000210 -WORD 210 sUNIQUE ERROR NUMBER 
2158 010502 001213 -WORD MMUERR sADORESS OF ERROR MESSAGE 
2159 sNO GO TO ERROR 
2160 010504 005046 404$:; CLR -( SP) sSETUP STACK FOR NEXT TEST 
2161 010506 005237 177572 INC 89177572 ; TURN MMU ON 
2162 010512 106603 MTPD R3 ; TEST INSTRUCTION 
2163 010514 022737 000004 177776 CMP 04 ,90177776 ;IS PSW CORRECT 
2164 010522 001403 BEQ S$ ;YES GO ON 





GLOB 


AREAS 


AL 
KDJLLA.MAC 


010524 


010552 
010556 
010560 
010562 
010564 


010566 


010572 


010572 


010662 
010670 


010722 


012637 


012737 
004767 


012701 


012737 


177572 
000000 


177777 


000244 


20°MAR "Ba $1519 °— >) 2O-MAR; ES 


177776 
177600 


177600 


170126 
177572 
177776 


5$: 


6$: 


7$: 


; 
TSMMU7: 


ERROR 


G4 


teh APBD ?Hove TO PREVIOUS DATA SPACE ) 


sALL ERRORS TO TRAP TO EMT VECTOR 
NUMBER 


211 ; UNIQUE ERROR 
MMUERR ;ADDRESS OF ERROR MESSAGE 
:;NO GO TO ERROR 
84177572 ; TURN MMU OFF 
R3,00 :;IS R3 CORRECT 
63 :YES GO ON 
;ALL ERRORS TO TRAP TO EMT VECTOR 
212 ; UNIQUE ERROR NUMBER 
MMUERR sADDRESS OF ERROR MESSAGE 
:;NO GO TO ERROR 
(SP )+, #177777 :;IS STACK CORRECT 
7$ ;YES GO ON 
;ALL ERRORS TO TRAP TO EMT VECTOR 
213 ; UNIQUE ERROR NUMBER 
MMUERR ;sADDRESS OF ERROR MESSAGE 
s;NO GO TO ERROR 
(SP )+,80244 sRESTORE TEST LOCATION 


bf PEASSOREESHEESADESAREREEESERALERADEREEERAREAREEEREAEEAAAEE. bOERS 


;#TEST 13 


bf PPSSAESEESEEASEAAEEEAEREAAEAARERASAAEREEAERREEAEALADEALAEEREDAD 


TST13: 








MOV 
JSR 


TEST NON-RESIDENT ABORT 


$TESTN : INCREMENT TEST NUMBER 

84177572 sMMU OFF 

FLAG ;CLEAR MMU ABORT FLAG 

86214, -(SP) ;SAVE DATA AT TEST LOCATIONS 

86216, -(SP) 9 

MRO ;CLEAR STATUS REGS SAVE AREAS 

SAVMRI1 : 

SAVMR2O : 

PC ,MMU ; INIT MMU 

#30000 ,80177776 ;SETUP PSw 

#200 ,R : 

#77400 ,80177600 ;SETUP FOR AN ABORT 

PC ,.1TS7 ;CAUSE AN ABORT TO OCCUR AND 
; THEN CHECK IF ABORT FLAG REGISTERED 
;THIS EVENT AND CHECK IF STATUS REGS 
sCONTAINED EXPECTED VALUES. 
:IF NO ABORT OCCURRED THEN GO TO ERROR 
;OTHERWISE CONTINUE. 

077404 .840177600 ;SETUP FOR AN ABORT 


PC.1S7 sCAUSE AN ABORT TO OCCUR AND 
sTHEN CHECK IF ABORT FLAG REGISTERED 
sTHIS EVENT AND CHECK IF STATUS REGS 
sCONTAINED EXPECTED VALUES. 
sIF NO ABORT OCCURRED THEN GO TO ERROR 
sOTHERWISE CONTINUE. 


#220,R1 3 

PC MMU ; INIT MMU 

RS ;SETUP MMR1L EXPECTED DATA 
@1,FLAG ;SETUP FLAG FOR AN ABORT 
#1,80177572 ;TURN MMU ON 


#100000 ,80177776 ;SETUP PSW FOR AN ABORT CILLEGAL MODE) 


SEQ 0045 


H4 


KOJI IA. MAC 20- "MAR Ba tists _ man #4 eat tts ABR. RESIDENT ABORT 


010730 
010732 


011142 


011144 
011150 
011152 
011154 


012241 
004767 


012737 


001403 


000240 


030000 
077400 
177572 


000216 
000214 
000210 


000001 
000001 


000000 


167762 
100000 


167742 


167726 


170056 
17757e 
177776 


177776 


177600 


167766 
177S7e2 


167746 


167754 


000022 


MOV 
JSR 


(R2)+,-C(R1) sCAUSE AN ABORT 

PC,TSM7 sCHECK IF AN ABORT OCCURRED Br 
sCHECKING ABORT FLAG AND STATUS REGS 
sIF NO ABORT OCCURRED THEN GO TO ERROR 
s OTHERWISE CONTINUE . 


SAVMRO sCLEAR STATUS REGS SAVE AREAS 

SAVMR1 

SAVMR2 

#22 ,R3 , SETUP MMR1 EXPECTED DATA 

#1,FLAG ;SETUP FLAG FOR AN ABORT 

#1,80177572 3; TURN MMU ON 

020000 ,80177776 sSETUP PSW FOR AN ABORT (ILLEGAL MODE ) 

(R2)+ ;CAUSE AN ABORT 

PC.1SM7 ;sCHECK IF AN ABORT OCCURRED By 
sCHECKING ABORT FLAG AND STATUS REGS 
;IF NO ABORT OCCURRED THEN GO TO ERROR 
;OTHERWISE CONTINUE. 

#30000 , 80177776 ;SETUP PSW 

#77400 ,80177600 ;SETUP FOR AN ABORT 

80177572 sMMU OFF 

CR2)->+ ;TRY TO CAUSE AN ABORT 

CSP)+,R3 ;sPOP THE STACK 

CSP )+ 80216 sRESTORE DATA AT TEST LOCATIONS 

(SP)+,80214 $ 

TS7F IN 


;ROUTINE TO CAUSE AND CHECK NONRESIDENT ABORTS 


3 
TS?7: 


OKA7: 


OKAY?7: 





#1,FLAG ;SETUP FOR AN ABORT 
#1,801775S72 ; TURN MMU ON 
7,R1 ;SAVE PC 
CR2)> :;CAUSE AN ABORT 
#0 .,.FLAG ;0ID AN ABORT OCCUR 
OK7 ;IF YES ON 
;ALL ERRORS TO TRAP TO EMT VECTOR 
214 :; UNIQUE ERROR NUMBER 
MMUERR sADDRESS OF ERROR MESSAGE 
;IF NO GO TO ERROR 
SAVMRO sSETUP EXPECTED DATA 
100000 , SAVMRO ; TEST MMRO FOR EXPECTED VALUE 
OKA7 :IF OK THEN CONTINUE 
;ALL ERRORS TO TRAP TO EMT VECTOR 
215 ; UNIQUE ERROR NUMBER 
MMUERR ;ADDRESS OF ERROR MESSAGE 
sNOT OK THEN GO TO ERROR 
SAVMR1 , @22 ; TEST MMR1 FOR EXPECTED VALUE 
OKAY7 :IF OK THEN CONTINUE 
sALL ERRORS TO TRAP TO EMT VECTOR 
216 s;UNIQUE ERROR 2 
MMUERR sADDRESS OF 
sNOT OK THEN GO TO ER 
SAVMR2 ,R1 ; TEST MMR2 FOR EXPECTED VALUE 
OKAY7A ;IF OK THEN CONTINUE 
;ALL ERRORS TO TRAP TO EMT VECTOR 
217 s; UNIQUE ERROR NUMBER 


SEQ 0046 


AREAS 


GLOBAL. 
KDJ11A.MAC 


011156 
011160 
011164 


011170 
011174 


011176 
011210 
011212 
011214 


011252 
011254 


011256 
011256 


011374 


001213 


022767 
001403 
104000 
000220 
001213 


~~) il = it 1052 ) 
20 -MAR - 84 


11:19 


000000 


040377 
100000 


167630 


20 -MAR -84 


167636 


001072 
167642 


177776 
177600 
167466 
177572 


167446 





14 


ESS OF Ste ME SSAGE 


ADDR 
;NOT OK THEN GO TO ERR 


sCLEAR STATUS REGS SAVE AREAS 
: 


« 
;RETURN 


sOID AN ABORT OCCUR 

sIF YES GO ON 

sALL ERRORS TO TRAP TO EMT VECTOR 
s UNIQUE ERROR NUMBER 

sADDRESS OF aa ME SSAGE 


;IF NO THEN GO TO ERR 


sSETUP EXPECTED DATA 

;_ TEST MMRO FOR EXPECTED VALUE 
;IF OK THEN CONTINUE 

sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 


;IF NO THEN GO TO ERROR 


;_ TEST MMR1 FOR EXPECTED VALUE 
:;IF OK THEN CONTINUE 
sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 

ERROR MESSAGE 


sADDRESS OF 
;IF NOT 0K THEN GO TO ERROR 
RE TURN 


: Pp 4 
T13 “s test NON-RESIDENT ABORT 
. WORD MMUERR 
OKAY7A: CLR SAVMRO 
CLR SAVMR1 
CLR SAVMRO 
RTS PC 
; 
sROUTINE TO CHECK IF A NONRESIDENT ABORT OCCURRED 
: 
TSM7: #0.FLAG 
TSMA 
220 
MMUERR 
TSMA: 040377 ,3e@SAVMRO 
#100000 , SAVMRO 
TSMB 
2el 
MMUERR 
TSMB: R3.,SAVMR1 
TSMC 
222 
MMUERR 
TSMC: PC 
; 
TS7F IN: 
TSMMUB : 


bf SPSSSOSEESSEEEEEEEEEEEDEEEAEHEEEEOKEOAEEEOOEEDDREEDDEEEDREDERDALLSE 


s#TEST 14 


bf PESESOOSSSSEEOEESEHEE44O4804606066660460604606006600060600080008004484 


TST14: 


TEST READ ONLY ABORTS 


STESTN 
80177572 
FLAG 


PC MMU 
#30000 ,80177776 
$244 .R 

#77402 ,80177600 
@246, -(SP) 

#1, FLAG 
@1,80177572 
R7,R1 


(R2)> 
#0 ,FLAG 
1$ 


; INCREMENT TEST NUMBER 

sMMU OFF 

;CLEAR MMU ABORT FLAG 

s;SAVE DATA AT TEST LOCATIONS 


; 
sCLEAR STATUS REGS SAVE AREAS 
; 


; 
s INIT MMU 
;SETUP PSW 


£ 

sSETUP FOR AN ABORT 

sPUSH DATA ONTO THE STACK 
; SETUP oe leas AN ABORT 


;DID ABORT OCCUR 
:IF YES THEN GO ON 
;IF NO THEN GO TO ERROR 


SEQ 9047 


GLOBAL. 


AREAS 


KDJ11A.MAC 


011376 
011400 
011402 
011404 
011410 
011416 


011420 
011422 
011424 
011426 
011434 


011436 
011440 
011442 
011444 
011450 


011452 


011516 
011522 


MACY11 30A( 1052) 
20-MAR-84 11:19 


0066 
012637 
012637 


167462 
020000 


011026 


167426 


000244 


J4 





20-MAR-84 11:31 PAGE 48 
T14 TEST READ ONLY ABORTS 
ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 
. WORD 225 ; UNIQUE ERROR NUMSER 
. WORD MMUERR sADDRESS OF ERROR MESSAGE 
1$: CLRB SAVMRO ;SETUP EXPECTED DATA 
167454 CMP #20000 , SAVMRO s TEST MMRO FOR EXPECTED VALUE 
BEG 2$ :IF OK THEN CONTINUE 
;sOTHERWISE GO TO ERROR 
ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 
-WORD 224 ;sUNIQUE ERROR NUMBER 
-WORD MMUERR sADDRESS OF ERROR MESSAGE 
167440 23: CMP #11026, SAVMR1 ; TEST MMR1 FOR EXPECTED VALUE 
BEG 3$ ;IF OK THEN CONTINUE 
;sOTHERWISE GO TO ERROR 
ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 
-WORD 225 s;UNIQUE ERROR NUMBER 
-WORDB MMUERR sADDRESS OF ERROR MESSAGE 
3$: CMP R1i,SAVMR2 ; TEST MMR2 FOR EXPECTED VALUE 
BEQ as ;IF OK THEN CONTINUE 
;OTHERWISE GO TO ERROR 
ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 
-WORDB 226 ;UNIQUE ERROR NUMBER 
-WORD MMUERR ;ADDRESS OF ERROR MESSAGE 
000002 4%: CMP 90244 .2( SP) ;CHECK THAT ABORT BLOCKED wRITE 
BEG 5$ ga IF CURRENT CONTENTS= SAVED 
H 
sERROR! ABORT DION’ T BLOCK ACCESS 
;ALL ERRORS TO TRAP TO EMT VECTOR 
2e7 ;UNIQUE ERROR NUMBER 
MMUERR sADDRESS OF ERROR MESSAGE 
177776 5$: 830000 ,80177776 SETUP PSW 
@2,-(SP) ;PUSH DATA ONTO STACK 
C(R2)>+ ;TRY TO CAUSE ABORT 
(SP )+ 80246 sRESTORE DATA AT TEST LOCATIONS 
(SP )+,a80244 . 
TSMMUS: 


177776 


172516 


5 § SPASSSEESEAEASEASAEAEALADASASAAEDAESALADEAREREAEHACREELEREDREDELS 


s*TEST 15 TEST PAGE LENGTH ERROR ABORTS 
5 § PPSSSOSSESESEESSAEASEOEESAHEAEEAEEKEEEEDEEEKERAAEEEDOAADDDRALLS 
TST15: 
INC $STESTN ; INCREMENT TEST NUMBER 
CLR 80177572 sMMU OFF 
CLR FLAG ;CLEAR MMU ABORT FLAG 
CLR SAVMRO ;sCLEAR STATUS REGS SAVE AREAS 
CLR SAVMR1 ; 
CLR SAVMRO : 
MOV #30000 ,80177776 ;SETUP PSwW 
JSR PC MMU s INIT MMU 
MOV OPLFO,R3 sLET R3, R1, AND R2 POINT TO THE 
MOV 9BNO,R1 ;UPWARD EXPANSION TABLES 
MOV #ABORTO,R2 8 
MOV 26 ,80172516 sDISABLE USER DATA SPACE 
JSR PC, TSM9 ; TURN MMU ON 


;D0 RELOCATIONS FOR THE DIFFERENT 
;VALUES OF THE PAGE LENGTH FIELD AND 
;BLOCK NUMBER. IF AN ABORT OCCURS 


SEQ 046 


GLOBAL. 


KDJLIA, 


AREAS 
MAC 


011612 
011616 


011636 


012010 


MACY11 30A( 1052) 
20 -MAR -84 


012703 
012701 
012702 
004767 


022767 
0014023 
104000 


11:19 


177572 
012274 
012344 
177600 


167110 
040000 


000020 


20 -MAR - 84 
T15 


167144 
177572 


167114 


167074 


167102 


16 7066 


$ 
TSM9: 


4$; 


<4 


11:31 PAGE 49 
TEST PAGE LENGTH ERROR ABORTS 


;YES GO 


s;NO GO TO ERR 


MOV OPLF1.R3 
MOV #BN1,R1 
MOV #ABORT1,.R2 
JSR TS 
CLR 8¢177572 
MOV 9BN1+10,R1 
MOV CR3),980177600 
MF PI CR1)-+ 
MOV (SP)+,RS 
JMP TSOF IN 
3 
sROUTINE TO CAUCE AND CHECK PAGE LENGTH 
MOV CR3)+,80177600 
MOV R1,RO0 
MOV #1,FLAG 
MOV @1,80177572 
MOV R7,R4 
MFPI @CRO)-+ 
CMP CR2),00 
BNE 2$ 
MOV CSP)+,R5 
CMP @1.,.FLAG 
BEQ $ 
ERROR 
-WORD 230 
-WORD MMUERR 
BR 6$ 
CMP 00 .FLAG 
BEG 
ERROR 
-WORD 231 
-WORD MMUERR 
CLRB SAVMRO 
CMP #40000 , SAVMRO 
BEG 4$ 
ERROR 
-WORD 232 
-WORD MMUERR 
CMP #20, SAVMR1 
ste 5$ 


sAND IF YES CHECK ABORT FLAG 
;STATUS REGISTERS. 

sLET RS, R1, AND R2 POINT TO THE 
——— EXPANSION TABLES 


; TURN MMU ON 


sCHECK TC SEE IF IT WAS SUPPOSED TO, 
AND 


-__IF AN ABORT OCCURS 
sCHECK TO SEE IF IT WAS SUPPOSED TO, 
;AND IF YES CHECK ABORT FLAG AND 
;STATUS REGISTERS. 

sMMU OFF 


:POINT TO A VALUE WHICH SHOULD CAUSE 
;AN ABORT IF MMU IS ON. 

;SETUP UIPDRO 

;D0 A RELOCATION 

;sPOP THE STACK 


ERROR ABORTS 


:;SETUP UIPDRO 
sSAVE A COPY OF Ri 
;SETUP FOR AN ABORT 


:D0 A RELOCATION OPERATION 

;WAS AN ABORT SUPPOSED TO OCCUR 
:IF YES GO TO 2s 

;POP THE STACK 

:DID AN ABORT OCCUR 

s;NO GO ON 

;ALL ERRORS TO TRAP TO EMT VECTOR 
; UNIQUE ERROR NUMBER 

;ADDRESS OF ERROR MESSAGE 

ro ERROR 


:DIO AN ABORT OCCUR 
;YES GO ON 

;ALL ERRORS TO TRAP TO EMT VECTOR 
s UNIQUE ERROR NUMBER 

boty OF ERROR MESSAGE 





sSETUP EXPECTED DATA 

; TEST MMRO FOR EXPECTED VALUE 
sIF OK THEN CONTINUE 

sALL ERRORS TO TRAP TO EMT VECTOR 
sUNTQUE ERROR ER 


; TEST MMR1 FOR EXPECTED VALUE 
;IF OK THEN CONTINUE 
;ALL ERRORS TO TRAP TO EMT VECTOR 


SEQ 9049 


GLOBAL. AREAS 
KDJ11A.MAC 


012012 
012014 


012016 
012022 


2066 
012070 


012072 


012172 


MACY¥11 30A( 1052 


20-MAR-84 11:19 


167054 


167004 
167030 
167026 
167024 


000777 


20 -MAR - 84 


TiS 


5$: 


6$: 


; 

; UPWARD 
H 

PLFO: 





EXPANSION TABLES 







EEE 


SSSSSDSSSGSSSSSSSSSENNEE 


2335 
MMUERR 


R4,SAVMR2 
6$ 


PC 


R 
(R3),%777 
TSM9 


i4 


te ORE PeNGTH ERROR ABORTS 


;NOT OK 


sUNIQUE ERROR NUMBER 


;_ TEST MMR2 FOR EXPECTED VALUE 
sIF OK THEN CONTINUE 
sALL_ ERRORS TO TRAP TO EMT VECTOR 
; UNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 
THEN GO TO ERROR 
s;CLEAR MMU ABORT FLAG 
sCLEAR STATUS REGS SAVE AREAS 
: 


: 
sPOINT TO NEXT ENTRY 
; 
. 


SHAVE ALL gernaes BEEN TRIED 
;NO REPEA 
;YES RETURN 


SEG 9050 


GLOBAL 


AREAS 


KDJL1A.MAC 


012174 
012176 


ABORTO: 


; 
s;DOWNWARD E 


3 
PLFi: 


BN1: 


GSSSSSSSSSSSSS0058 0000080 


SSSSSSESSSSSSSSSOS55055 


% 


M4 


20 MAR BA 46tS°—> ae 1 OE eNcTH ERROR ABORTS 


ANSION TABLES 


SEQ 9051 


AREAS 


GLOBAL 
KDJ11A.MAC 


012446 


012450 
012450 


20-M 


177572 


-84 


ABORT1: 


é 
TSOF IN: 
TSMM10: 


| 


000200 


ooroorrrooOrorrrCOOCO0O°oO 


N4 


Tis + tbs’ PREeZencTH ERROR ABORTS 


SEQ 9052 


Ieee 1h CUE T Tomek tek ae ee na teeseosaneesoeessoosneenss 


FUNCTIONAL TEST OF BITS <6:1> OF MMRO 


s*TEST 16 


3 SPOREAERORNEDOD44466446406604604660640604046440404660046000464044400000 


TST1i6: 


$TESTN 


840177572 
FLAG 


PC,TS10. 


; INCREMENT TEST NUMBER 

sMMU OFF 

;CLEAR MMU ABORT FLAG 

;sCLEAR STATUS REGS SAVE AREAS 
: 


3 
sINIT MMU 
sINIT PSW: PREVIOUS MODE = KERNAL 


3 
;SETUP KIPDR1 TO ABORT 
;SETUP FLAG FOR AN ABORT 
; TURN MMU ON 
;SAVE PC 
:00 A RELOCATION VIA KIPARL 
;SETUP EXPECTED DATA 
;CHECK IF AN ABORT OCCURRED AND 


GLOBAL. 


AREAS 


KDJ11A.MAC 


012746 
012752 


012756 


012762 
012770 
012772 
012774 
012776 


013010 
013012 


012737 


0127357 
012702 


001403 
000 


MACY11 30A( 1052) 
20-MAR-84 11:19 


166066 


20 -MAR - 84 
T16 


177776 
177636 
177676 


166250 
177572 


177776 
172212 


166154 
177572 


177776 


166106 
177572 


166052 


11:31 PAGE 53 
FUNCTIONAL TEST OF BITS <6:1> OF MMRO 


BS 


sIF YES CHECK BITS <6:1> OF MMRO. 


#30000 ,80177776 sINIT PSW: PREVIOUS MODE «= USER 
PC MMU sINIT MMU 
©77400 ,80177636 sSETUP UDPDR7 TO ABORT 
©1600 ,80177676 sSET UDPAR7 TO RELOCATE 10 PHYSICAL 
—_ 160000 -177776 
#160000 ,R2 
@1.FLAG ) SETUP FLAG FOR AN ABORT 
#1,80177572 sTURN MMU ON 
R7,R1 sSAVE PC 
(R2)- 300 A RELOCATION VIA UOPAR?7 
#100177,R4 ;SETUP EXPECTED DATA 
PC.1TS10 sCHECK IF AN ABORT OCCURRED AND 
sIF YES CHECK BITS <6:1> OF MMRO. 
€10000 ,80177776 sINIT PSW: PREVIOUS MODE = SUPERVISOR 
PC MMU sINIT MMU 
@77400 ,80172212 sSETUP SIPORS TO ABORT 
120000 ,R2 sACCESS PAGE 05 
@1.FLAG sSETUP FLAG FOR AN ABORT 
@1,90177572 3TURN MMU ON 
R7,R1 sSAVE PC 
(R2)> 300 A RELOCATION VIA SIPARS 
@100055,R4 sSETUP EXPECTED DATA:ABORT, PAGE 05 
PC.7S10 ;CHECK IF AN ABORT OCCURRED AND 


VIF YES CHECK BITS <6:1> OF MMRO. 


3 
sTEST THAT ILLEGAL MODE CAUSES MMU ABORT 


@20000 ,80177776 sINIT PSW:SET ILLEGAL PREVIOUS MODE 
PC MMU sINIT MMU 
40000 ,Re sSET UP ACCESS TO PAGE 2 
@1.FLAG sSETUP FLAG FOR AN ABORT 
@1.80177572 ; TURN MMU ON 
R7,R1 sSAVE PC 
C(R2)-° 3:00 A RELOCATION 
#100105 ,R4 sSETUP EXPECTED DATA:ABOR”, ILLEGAL 
s PROCESSOR MODE. PAGE O2 
PC.TS10 ;CHECK IF AN ABORT OCCURRED AND 
sIF YES CHECK BITS <6:1> OF MMRO. 
TIOF IN 


3 
sROUTINE TO CHECK IF A 


sCONTAINS EXPECTED DATA 
00,F LAG 
1% 


3 
TS10: 


1%: 


CMP 


235 
MMUE RR 


R4, SAVMRO 
2s 


256 
MMUERR 


MMU ABORT OCCURRED AND IF STATUS REG MMRO 


s0IO0 AN ABORT OCCUR 
s:YES GO ON 
sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 
VADORESS. OF ERROR MESSAGE 
:NO GO TO ERROR 
: hs —" FOR EXPECTED DATA 


3 OK 
sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 


SEQ 9053 


SPS, AB AREAS 


013172 
013176 


013202 


013252 


022767 
001405 
000 


000022 


166040 


166020 
166016 
166014 


165714 
177572 
165742 
030000 


166074 
172516 
077400 
100000 
000001 
000001 


000000 165570 


20" Hi ba PRIQP2? 20-M0R 0 


166052 


177776 


177776 


177776 


165606 
177572 


3$: 


43: 


3 
TLOF IN: 
TSMM11: 


CMP 
BEG 
ERROR 


Go 


@22,SAVMR1 
3$ 


237 
MMUERR 


R1,SAVMRO 
4s 


240 
MMUERR 


SAVMRO 
SAVMR1 
SAVMR2 
PC 


tbc PGRar rest oF BITS <6:1> OF MMRO 


sNO GO TO ERROR 
s TEST MMR1L FOR EXPECTED DATA 
30K GO ON 


FALL ERRORS TO TRAP TO EMI VECTOR 
sUNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 

sNO GO 10 ERROR 

s TEST MMR2 FOR EXPECTED DATA 


10K GO ON 
sALL ERRORS TO TRAP TO EMI VECTOR 
sUNIQUE ERRCR NUMBER 


sADDRESS OF ERROR MESSAGE 
sNO GO 10 ERROR 
sCLEAR MMU STATUS REGS SAVE AREAS 
0 


é 
;RE TURN 


b SSSSOSSESSESESEASEAEEASHOEEEEEEEEEEEEASCHEEEEEEEEEEEEOOEEEOEEEREEEESS 


s@TEST 17 


TST17: 


3 
TSil: 


TEST DATA SPACE BITS MMR3 
eee he ene see ORO eeSESEEOSSeanns ceecessaaseoes 
INC $STESTN s INCREMENT TEST NUMBER 
CLR op ike sMMU OFF 
CLR FLAG ;CLEAR MMU ABORT FLAG 
MOV ooo ge 80177776 sSETUP PSW 
MOV 026 ,R1 sSETUP FIRST MMR3 VALUE 
MOV @177610, RS sPOINT TO UIPDR4 
MOV 21 ,R4 ;SETUP SECOND MMR3 VALUE 
JSR PC.TS11 ; TEST ENABLE USER DATA SPACE BIT 
MOV @0,.80177776 ;SETUP PSW 
MOV @23,R1 ;SETUP FIRST MMRE VALUE 
MOV 172310,R3 sPOINT TO KIPDR4 
MOV @ eer ;SETUP SECOND MMR3 VALUE 
JSR Ts Sil ; TEST ENABLE KERNEL DATA SPACE BIT 
MOV ye alll sSETUP PSw 
MOV €25,,R1 ;SETUP FIRST MMR3 VALUE 
MOV 0172210, RS :sPOINT TO SIPDR4 
MOV 922 ,R4 ;SETUP SECOND MMRS VALUE 
JSR PC,TS11 ; TEST ENABLE SUPERVISOR DATA SPACE BIT 
JMP TLIF IN 
° 
sROUTINE TO TEST ENABLE DATA SPACE BITS OF MMRZ 
MOV R1,80172516 sDISABLE DATA SPACE al MODE UNDER TEST 
MOV €77400,(R3) re IPOR TO ABOR 
MOV #100000, R2 
MOV @1,.FLAG SETUP FLAG FOR AN ABORT 
MOV @1,80177572 sMMU ON 
MF PD (R2)-> 3:00 A RELOCATION 
CMP @0.FLAG s0ID AN ABORT OCCUR 
BEG 1$ ;YES GO ON 


SEQ 


054 


DS 


KDUT IA. MAE” «20 MRA hg P46 $952? 20-MAR 8g 1h h PBR Ga epace BITS MMR’ 


013530 


112425 
004767 


012703 
012767 
012737 
010767 
112142 
004767 


012703 
012767 
012737 
010767 
114125 


165506 


000154 


165542 
177572 


165522 


177776 


172516 
172310 


165410 
177572 


165356 
177572 


. 


165324 
177572 


1%: 


2s: 


3 
TLIIF IN: 
TSMMle: 


ERROR 


CLR 
RTS 


241 
MMUERR 


R4 ,80172516 
#100000 


sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBE 
ADDRESS OF ERROR MESSAGE 


i 
sNO GO TO ERROR 


:YES GO 


sENABLE DATA SPACE OF MODE UNDER TEST 


: 
sSETUP FLAG FOR AN ABORT 
MMU 


; 
:00 A RELOCATION 

sPOP THE STACK 

s0ID AN ABORT OCCUR 

sNO GO ON 

sALL ERRORS TO TRAP TO EMT VICTOR 
sUNIQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 

TO ERROR 

;CLEAR MMU ABORT FLAG 

;RETURN 


8 5 OSEOOSOOO660666066066066066646606660006066600066600604646600666466680688 


s4@TEST 20 


bE SOSSSHAESOSSEEHEEESLESEAEEEEEEEEEEEESEEEEDEEEDEODRESEDEREEESEESES 


TST20: 


MMR1 FUNCTIONAL 


$TESTN 
86177572 
FLAG 


SAVMR1 

PC Mey 

#30000 ,80177776 
#100200 ,R4 
R4,R1 
#100101,R5 
RS,R 


©20,80172516 
#77402 ,80172310 
66414 ,R3 
@1,FLAG 
#1,80177572 
R7,SLOC 


° 00 
(R4)+,CR5)> 
PC,.1TSi2 


#175011,R3 

@1,FLAG 

@1,80177572 
7,SL0COO 


(Ri)+, -(R2) 
PC, TSi2 


96771,R3 
1,FLAG 
@1,.80177572 
R7,SLOCOO 
-(R1),CRS)- 





TEST 


s INCREMENT TEST NUMBER 

sMMU OFF 

;CLEAR MMU ABORT FLAG 

a a REG SAVE AREA 


bol 
sSETIP TEST LOCATIONS 
3 
3 


: 
;INIT MMR3S 
;SETUP KIPDR4 TO ABORT 
sSETUP EXPECTED DATA FOR MARI 
;SETUP FLAG FOR AN ABORT 
3; TURN MMU ON : 
;SAVE PC 
:00 A RELOCATION 
;CHECK IF AN ABORT OCCURRED AND IF 
;YES IF MMR1 EQUALS EXPECTED DATA 
:;SETUP EXPECTED DATA FOR MMRI 
;SETUP FLAG FOR AN ABORT 
3; TURN MMU ON 
sSAVE PC 
:00 A RELOCATION 
sCHECK IF AN ABORT OCCURRED AND IF 
sYES IF MMR1 EQUALS EXPECTED DATA 
sSETUP EXPECTED DATA FOR MMR1 
;SETUP FLAG FOR AN ABORT 

MMU ON 


300 A RELOCATION 


SEQ 905% 


GLOBAL. AREAS 
KDJ1L1A.MAC 


013532 


013710 
013712 


013726 


013730 
013734 
013740 


013742 
013742 


MACY11 < crt’ ie 
20-MAR-84 11: 


004767 


012703 
012767 
012737 
010767 
112125 
004767 


012705 


012703 
012767 
012737 
010767 
014225 
004767 


000167 


022767 


000122 


165214 
000036 


012762 
000001 


000001 
165162 
000004 


000062 


000000 


165172 


165112 


165140 
165136 


pe 





20-MAR-84 11:31 PAGE 56 
T20 MMR1 FUNCTIONAL TEST SEG 9056 
JSR PC.TS12 sCHECK IF AN ABORT OCCURRED AND IF 
sYES IF MMR1 EQUALS got yp —— 
MOV 06411,.R3 sSETUP EXPECTED DATA FOR MMR 
165272 MOV @1,.FLAG ;SETUP FLAG FOR AN ABORT 
177572 MOV #1.80177572 3 TURN MMU ON 
MOV R7.SLOCOO sSAVE PC 
MOVB (R1)>, (RS) 3:00 A RELOCATION 
JSR PC, TSi2 sCHECK IF AN ABORT OCCURRED AND IF 
sYES IF MMR1 EQUALS EXPECTED DATA 
MOV #171025.83 sSETUP EXPECTED DATA FOR MMRI 
165240 MOV #1,.FLAG ;SETUP FLAG FOR AN ABCRT 
177572 MOV 01,80177572 ; TURN MMU ON 
MOV . 00 sSAVE PC 
MOV C(R5)+, -CR2) :00 A RELOCATION 
JSR PC.TSi2 sCHECK IF AN ABORT OCCURRED AND IF 
;YES IF MMR1 EQUALS EXPECTED \ ania 
MOV #12762 ,R3 sSETUP EXPECTED DATA FOR MMR 
165206 MOV 01.FLAG ;SETUP FLAG FOR AN ABORT 
177572 MOV #1,8017757e2 ; TURN MMU ON 
MOV R7.,SLOCOO s;SAVE PC 
MOV -C(R2),CRS)> :00 A RELOCATION 
JSR PC.TSi2 sCHECK IF AN ABORT OCCURRED AND IF 
;YES IF MMR1 EQUALS EXPECTED DATA 
JMP TI2F IN 
3 
sROUTINE TO CHECK IF AN ABORT OCCURRED AND IF MMR1 EQUALS EXPECTED DATA 
3 
165154 TSie2: CMP @0.FLAG :;DID AN ABORT GCCCUR 
BEQ 1$ :;YES GO ON 
ERROR ;sALL ERRORS TO TRAP TO EMT VECTOR 
-WORDB 243 s UNIQUE ERROR NUMBER 
-.WORD MMUERR sADDRESS OF ERROR MESSAGE 
3;NO GO 10 ERROR 
i$: CMP R3,SAVMR1L ; TEST MMR1L FOR EXPECTED DATA 
BEQ 2s ;0K GC ON 
ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 
-WORDB 244 sUNIQUE ERROR NUMBER 
-WORD MMUERR sADDRESS OF ERROR MESSAGE 
sNO GO TO ERROR 
165156 2%: SLOCOO, SAVMR2 ; TEST MMR2 FOR EXPECTED DATA 
33 :0K GO ON 
;ALL ERRORS TO TRAP TO EMT VECTOR 
245 s UNIQUE ERROR NUMBER 
MMUERR s;ADDRESS OF ERROR MESSAGE 
:;NO GO TO ERROR 
3$; SAVMR1 CLEAR STATUS REG SAVE AREA 
SAVMR2 : 
PC ;RETURN 
3 
T12F IN: 
TSMM13: 


b 5 98866666 066666666646664660466646446666066660606600600066006004600048006 


s*TEST 21 ADDER RELOCATION TEST PART A 


5 3 99O8064460686666666660646660666606666660066006060666060006004600000068606 


;(NEED 16 BITS OF MEMORY ADDRESSING) 


GLOBAL. AREAS 
KDJ11A.MAC 


013742 


014160 
014160 


014164 


000333 


014334 
177776 
000001 


177572 


000111 


177776 


000027 
000001 


177572 
172516 


000202 








ro 





20-MAR-84 11: Pp 
T2l1 ABDER RELOCATION TEST PART A 
3 § PSPESSOSSESELSESSESESESESEESEEEEAEEOEEEEEHEREREDREDEEDRAREAELEDSEDS 
ST21: 
INC $TESTN :; INCREMENT TEST NUMBER 
CLR 80177572 sMMU OFF 
CLR FLAG ;CLEAR MMU ABORT FLAG 
CLR 80177776 sINIT PSwW 
JSR PC MMU s; INIT MMU 
172516 MOV $20 ,80172516 ; INIT MMR3 
MOV @PARAD1.R3 sSETUP PARS WITH TEST VALUES 
MOV @PARVA1,R1 ; 
1$: MOV CR1)+,O8CR3)> ; 
CMP (R1), 0333 ; 
BNE 1$ 
MOV OPHY1,.R3 ;SET POINTERS TO ADDER PART A 
MOV @VIR1,R1 . TEST TABLES. 
MOV #MODE1.Re 
2s: MOV (R2)+, 80177776 VINIT PSwW 
MOV ACR3)+-, RS ;SAVE DATA AT PHYSICAL ADDRESS 
177572 MOV #1,80177572 ; TURN MMU ON 
@CR1)->+ sSAVE DATA AT RELOCATED VIRTUAL ADDRESS 
(SP)+,R4 : 
86177572 ;TURN MMU OFF 
RS ,R4 :IS DATA EQUAL TO EXPECTED 
3$ :;YES GO ON 
;ALL ERRORS TO TRAP TO EMT VECTOR 
246 s; UNIQUE ERROR NUMBER 
MMUERR sADDRESS OF ERROR MESSAGE 
;sNO IT 1s AN ADDER ERROR 
3$; CR3),@111 ;ARE WE READY TO TEST DATA SPACE 
2s ;NO GO TO 
“- sPOINT TO SATA SPACE VALUES 
; 
Ri $ 
Ri : 
R2 : 
RS : 
MOV C(R2)+,80177776 ; INIT PSW 
MOV OCR3)-, ;SAVE DATA AT PHYSICAL ADDRESS 
172516 MOV $27 ,80172516 s INIT MMRS 
177572 MOV #1 ,.8017757e ; TURN MMU ON 
MF PD Q@CR1)-> : SAVE DATA AT RELOCATED VIRTUAL ADDRESS 
MOV (SP)-,R4 :POP THE STACK 
CLR 84177572 ; TURN MMU OFF 
CLR 86172516 ;CLEAR MMRS 
CMP RS .R4 :IS DATA EQUAL TO EXPECTED 
BEG 4$ :YES GO ON 
ERROR ;ALL ERRORS TO ton TO EMT VECTOR 
. WORD 247 :; UNIQUE ERROR NUMBER 
- WORD MMUERR sADDRESS OF ERROR MESSAGE 
sNO IT rs AN ADDER ERROR 
4$: 
JMP TL 3F IN 


: 
sADDER TEST PART A TABLES 


SEQ 9057 


G5 


GLOBAL AREAS Y11l 30AC(1052) 20-MAR-84 11:31 P 38 
KDJ11A. MAC 20 - -84 11:19 T21 ADDER RELOCATION TEST PART A =e One 
2893 014164 172240 PARADi: .WORD 172240 
2894 914166 177642 -WORD 177642 
2895 014170 172252 -WORD 172252 
2896 014172 177640 -WORD 177640 
2897 014174 172242 -WORD 172242 
2898 014176 172254 -WORD 172254 
2899 014200 177652 -WORD 177652 
2900 014202 177644 -WORD 177644 
2901 014204 172246 -WORDB 172246 
2902 014206 177654 -WORDB 177654 
2903 014210 172250 -WORD 172250 
014212 177660 -WORD 177660 
2905 014214 000333 -WORD 333 
2906 014216 000000 PARVA1L: .WORD 
2907 014220 -4WORD 000010 
2908 014222 177777 -WORD 177777 
014224 177601 -WORD 177601 
0 014226 000010 -WORD 000010 
2911 014230 000052 -WORD 000052 
2912 014232 000070 -WORD 000070 
29135 014234 000010 -WORD 000010 
2914 014236 000010 -WORD 000010 
2915 014240 -WORD 000060 
2916 014242 000000 -WORD 000000 
2917 014244 0 -WORD 000010 
2918 014246 000333 -WORG 333 
2919 014250 000000 VIR1: . WORD 
2920 014252 -WORD 025000 
2921 014254 135224 -WORD 135224 
2922 014256 017700 -WORD 017700 
2923 014260 033000 -WORD 033000 
2924 014262 145252 -WORD 145252 
2925 014264 121000 -WORD 121000 
2926 014266 043000 -WORD 043000 
2927 014270 075000 -WORD 075000 
2928 014272 142000 -WORD 142000 
2929 014274 117700 -WORD 117700 
2930 014276 000111 -WORD i111 
2931 014300 007000 -WORD 007000 
2932 014302 000000 PHY1: . WORD 
2933 014304 . WORD 
2934 014306 015124 -WORD 015124 
2935 014310 . WORD 
2936 014312 014000 -WORD Ol 
2937 014314 012452 -WORD 012452 
2938 014316 010000 -WORD 010000 
2939 014320 004 -WORD 004000 
2940 014322 016000 -WORD 016000 
2941 014324 010000 -WORD 010000 
2942 014326 017700 -WORD 017700 
2943 014330 000111 -WORDB 111 
2944 014332 010000 -WORD 010000 
2945 014334 010000 MODE1: .WORD 010000 
2946 014336 030000 -WORD 030000 
2947 014340 010000 -WORD 010000 
2948 014342 030000 -WORD 030000 


H5 


GLOBAL AREAS 11 30A O-MAR - 
KDJL1A.MAC 20 MAR: bat is 7s a ‘Rovek HEL B2atr0N TEST PART A StG 0059 

2949 014344 010000 .WORD 010000 

2950 014346 010000 .WORD 010000 

2951 014350 030000 .WORD 030000 

2952 014352 030000 .WORD 030000 

2953 014354 010000 .WORD 010000 

2954 014356 030000 .WORD 030000 

2955 014360 010000 .WORD 010000 

2956 014362 000111 .WORD 111 

2957 014364 0 .WORD 030000 

2958 3 

2959 014366 T13F IN: 

2960 014366 TS1822: 

2961 § ESSSSSASSESSESSESSESESEASSSESEEASEEASEDEEEEEEEEREEEREREDEDELEDSEEDES 

2962 ;#TEST 22 TEST 22/18 BIT ADDRESS OPTION 

2963 3 § CESESORESERESELEEAEEADEEEEAALEDESEAEEEEEERADADEEEEEAROEREREDESES 

2964 sCHECK THE SOFTWARE SWITCH REGISTER TO DETERMINE IF THIS IS A 22 BIT OR AN 

2965 316 BIT ADDRESS SYSTEM. BIT 08 IN THE SWR=1 INDICATES AN 18 BIT SYSTEM. 

2966 ;IF WE'RE IN A 22 BIT SYSTEM WE CAN PERFORM SOME EXTRA TESTS. 

2967 3 j SERSASRESARAEEDASESALEDODESADAEEASEREREREDEDEDEEERALEEADEEEERED 

2968 014366 TST2e: 

2969 014366 005267 164412 INC $TESTN ; INCREMENT TEST NUMBER 

2970 014372 032777 000400 164446 BIT ©BITO8,aSWR ;IS BIT 08 SET? 

2971 014400 001405 BEQ 100$ :BRANCH IF ITS NOT 

2972 014402 062737 000001 001004 ADD 01, Q90$TESTN sKEEP TEST NUMBERS IN ORDER 

2973 sADD 1 FOR THE TESTS WE'RE SKIPPING 

sor 014410 000167 001472 JMP TI4F IN ; SKIP OVER THESE TESTS IF IT IS 

sore :TF THIS IS A 22 BIT SYSTEM CHECK THE 22/18 BIT ADDRESS OPTION 

2978 :T0 TEST 22 BIT ADDRESSING WE DO THE FOLLOWING: 

2979 A. ENABLE 22 BIT ADDRESSING MODE 

2980 " 8. CLEAR SS 0 

2981 C. WRITE PHYSICAL ADDRESS 17000000 WITH ALL ONES 

2982 0. CK ADDRESS 0 

2983 SIF ADDRESS O IS UNCHANGED (=0) OR A TIME OUT OCCURRED, IT INDICATES 

2984 322 BIT MODE IS FUNCTIONING. 

oe sIF ADDRESS 0 *177777 IT INDICATES THAT 22 BIT MODE IS NOT FUNCTIONING. 

2987 014414 013767 000004 164406 100%: MOV 804 ,SLOCOO ;SAVE VECTOR 

2988 014422 013767 000006 164402 MOV 806, SLOCOL ;SAVE VECTOR 

2989 014430 012737 014514 000004 MOV 1$,904 ;SET VECTOR FOR NXM TRAP 

2990 014436 012737 000340 000006 MOV 340,806 ; 

2991 014444 012767 000020 156044 MOV #20,SR3 sENABLE 22 BIT MODE ADDRESSING 

2992 014452 012767 170000 155674 MOV #170000 ,K IPAR6 sSET KIPAR6 FOR 1920-1924KW ADDR RANGE 

2993 014460 012767 000001 163104 MOV #1, SRO sENABLE MMU 

2994 014466 005067 163306 CLR 0 sCLEAR ADOR 0 

2995 014472 012737 177777 140000 MOV 9177777,80140000 sMOVE ALL ONES TO ADDR 17000000 VIA KIPAR6 

2996 :A TIME OUT ERROR OR 

2997 014500 005767 163274 TST ) sADDR O REMAINING CLEAR INDICATES 

2998 ; THAT 22 BIT ADDRESS MODE IS WORKING AND 

e999 sTHAT SOME FUATIGR TESTS SHOULD BE PERFORMED 

3000 014504 001407 BEQ 2$ sIF ADDR O =177777 

3001 sERROR! 22 BIT ADDRESS MODE BAD 

3002 014506 104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 

3003 014510 000250 .WORD 250 ;UNIQUE ERROR NUMBER 

3004 014512 001213 .WORD MMUERR sADDRESS OF ERROR MESSAGE 


















GLOBAL. 


AREAS 


KDJ11A.MAC 


014514 
014520 


014570 
014572 
014574 


014576 


014766 
014774 


fs 














MACY11 30A(1052) 20-MAR-84 11:31 PAGE 60 
20-MAR-84 11:19 T22 TEST 22/18 BIT ADDRESS OPTION 
012706 001000 i$: MOV @STBOT,SP 
37 177766 CLR 80177766 
012737 014564 2s: MOV o3$ .304 
042767 000020 155756 BIC ®BITO4,SR3 
012767 170000 15 MOV #170000 ,KIPAR6 
012737 177777 140000 MOV #177777,380140000 
022737 177777 000000 CMP #177777,a¢0 
001405 BEQ 4$ 
005067 163002 3$: CLR SRO 
104000 ERROR 
000251 P 251 
001215 MMUERR 
3 
;TEST ADDRESS BITS 18 THRU 21 
3 
052767 000020 155712 4$: BIS ®BITO4,.SR3 
012767 014652 163172 MOV #53 .4 
7 163162 CLR 0 
012767 O11 155530 MOV #10000 ,KIPAR6 
012737 177777 140000 MOV €177777,80140000 
005767 163142 TST 0 
001405 BEQ 5$ 
005067 162726 CLR SRO 
104000 ERROR 
000252 252 
001213 MMUERR 
;ERROR! 
012737 014720 000004 53: MOV 06% ,a04 
005067 163114 CLR 0 
012767 020000 155462 MOV 920000 , KIPAR6 
012737 177777 140000 MOV 9177777,88@140000 
005767 163074 TST 0 
001405 BEQ 6$ 
7 162660 CLR SRO 
104000 ERROR 
000253 . WORD 255 
001213 . WORD MMUE 
s;ERROR: 
012737 014766 000004 63: MOV 07% ,a04 
5067 163046 CLR 0 
012767 0000 155414 MOV 940000 , KIPARG6 
012737 177777 140000 MOV 0177777,80140000 
005767 163026 TST 0 
001405 BEG 7$ 
005067 162612 CLR SRO 
104000 ERROR 
000254 ‘ 254 
001213 MMUERR 
;ERROR! 
012737 015034 000004 73: MOV 8% ,204 
005067 163000 CLR 


s;GOT HERE AS A RESULT OF NXM TRAP- -- 
sCLEAN UP THE STACK 

sCLEAR CPU ERROR REGISTER 

sSET UP VECTOR FOR NXM TRAP 

sSET 18 BIT ADDRESSING MODE IN SR3 
sSET KIPAR6 SO THAT BITS 18-21 SHOULD 
sBE ASSERTED IF 22 BIT ADR WAS ENABLED 
sTRY TO WRITE ADDR 17000000 VIA KIPARS6 
sADDR O SHOULD = 177777. A TIME OUT 
s;OR ADDR O = ZERO INDICATES AN ERROR 
;GO TO NEXT TEST IF ADDR 02177777 
sDISABLE MMU BEFORE ERROR. 

sERROR! 18 BIT ADDR OPTION IS N.G. 
sALL ERRORS TO TRAP TO EMT VECTOR 

;s UNIQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 


sENABLE 22 BIT ADDRESSING MODE 
;SET UP FOR NXM TRAP 

sCLEAR ADDRESS O 

sTEST ADDRESS BIT 18 


OR 
;ALL ERRORS TO TRAP TO EMT VECTOR 
s;UNIQUE ERROR NUMBER 

;ADDRESS OF ERROR MESSAGE 

BIT 18 DID NOT ASSERT 

;SET UP FOR NXM TRAP 

;CLEAR ADDR O 

;TEST ADDRESS BIT 19 

;sWRITE ALL ONES TO ADDR 

;TEST ADOR O. SHOULD= ZERO 
:BRANCH IF ADDRESS 0-0 

;sOISABLE MMU BEFORE ERROR 

sALL ERRORS TO TRAP TO EMT VECTOR 
;UNIQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 

BIT 19 DID NOT ASSERT 









0 =0 

sOISABLE MMU BEFORE ERROR 

;ALL ERRORS TO TRAP TO EMT VECTOR , 
sUNIQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 

BIT 20 DID NOT ASSERT 

;SET UP FOR NXM 

;CLEAR ADDRESS O 


SEQ 9060 


AREAS 


GLOBAL 
KDJL1A.MAC 


O1517e 
015176 


015310 


MACY11 30A 
20-MAR-84 1 


012767 


013737 


012767 
012737 


012767 
012737 
012737 
005737 


013737 
013737 


1 
100000 
177777 
162760 
162544 


163714 
177572 
162666 


125252 


155346 
140000 


177776 
172516 
177746 


177572 


(1052) 20-MAR-84 11: P 6 
719 T2e2 fest 33518! err ADDRESS OPTION 


J5 








SEG 9061 





MOV #100000 , KIPAR6 sTEST ADDRESS BIT 21 
MOV @177777,89140000 sWRITE ALL ONES AT 1 
TST 0 ;sCHECK ADDRESS 0. SHOULD = 0 
BEQ 8$ s;BRANCH IF ADDR O = O 
CLR SRO sDISABLE MMU BEFORE ERROR 
ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 
-WORDB 255 sUNIQUE ERROR NUMBER 
.WORD MMUE sADDRESS OF ERROR MESSAGE 
sERROR! ADDR BIT 21 DID NOT ASSERT 
8$: CLR SRO sDISABLE MMU 
CLR 80177766 :;CLEAR CPU ERROR REGISTER 
MOV &STBOT .R6 sRESET STACK POINTER 
MOV @OSLOCOO , 844 sRESTORE VECTORS 
MOV 8OSLOCO1 , 806 ; 
TSMM14: 
3 § SSASASEEAEAESESABASEAOSEASEDEAAEEEAEEEAEEAABEEEEADEEEDREREREESD EES 
;#TEST 23 ADDER RELOCATION TEST PART B 
3 § FPESSOEEASEEEEOAEEEAEEAEEAREALARSEDAEEAEEEAEEEDEEEEEEBEEEREDADRES 
;(NEED 22 BITS OF MEMORY ADDRESSING) 
8 § PESSRESASASEESAEEESEESEEESESREAERESEADEEEAEAEEAEARDAEEAEEADESBALS 
TST23: 
INC $TESTN ; INCREMENT TEST NUMBER 
CLR 0 ;TURN OFF MMU. 
CLR CPEREG ;CLEAR THE CPU ERROR REGISTER 
MOV 804 , 8@SLOCOO sSAVE LOC 4 IN SLOCOO. 
MOV 8066 ,.8@SLOCO1 sSAVE LOC 6 IN SLOCO1. 
MOV ONXMTRP , 804 ;SET UP FOR TIMEOUT TRAP 
MOV 0340 . 806 ;SET UP FOR TIMEOUT TRAP 
CLR @OK IPARO 
MOV #77406 ,KIPDRO 
MOV #177500 , BOK IPAR6 
sFOR 2 MEG WORDS OF MEMORY. 
MOV 77406 ,.KIPDR6 ;SET KER PDR6 FOR 4KW R/W ACCESS. 
MOV 920,80SR3 sENABLE 22 BIT ADDRESSING. 
MOV #1 ,@0SRO ;TURN ON THE MMU. 
TST 80157776 sATTEMPT TO ADDRESS LAST MEMORY ADDR. 
pseeseseeesooewTLi TRAP TO 4 IF 2 MEG WORDS OF MEMORY NOT AVAILABLE csccccaas 
MOV 8@SLOCOO 804 sRESTORE LOC 4 
MOV 8OSLO0CO1 ,. a6 sRESTORE LOC 6 
CLR 8@177572 sMMU OFF 
CLR OOF LAG ;CLEAR MMU ABORT FLAG 
JSR PC MMU ;INIT MMU 
MOV #10000 ,8¢177776 s INIT PSW 
MOV 020 ,8@172516 s INIT MMRS 
BIS #1000 ,80177746 ; TURN CACHE TEST FEATURE ON 
MOV OPARVAS,.R4 ;SET POINTERS TO INIT TABLES 
MOV @VIR3,R1 3 
1%: MOV CR4)+ ,80172246 :;INIT SIPAR3 
MOV #1,80177572 ; TURN MMU ON 
MOV #125252, -( SP) ;PUSH BACKGROUND DATA ON TO THE STACK 
MTIPI BOC R1) sWRITE DATA TO PHYSICAL ADDRESS 
MF PI @CR1)-« :sWRITE DATA AT PHYSICAL ADDRESS TO STACK 
CMP #125252,(SP)-+ :IS DATA EQUAL TO EXPECTED 
BEQ es :YES GO ON 


GLOBAL 


AREAS 


KOJL1A,.MAC 


015312 


015322 


015324 
015330 


015474 


015524 


MACY11 30A( 1052) 
20-MAR-84 11:19 


000167 


012437 


012737 


177572 


177572 
000333 


015704 
015652 


000333 
015770 
015736 
016022 


016054 
000076 


000111 


000027 
177776 
05252 


5 
000001 
177572 


000020 
000040 


172516 
000004 


000406 


177776 
00000 
052525 


177572 
010000 


~ 


KS 


20-MAR-84 11:31 PAGE 62 SEQ 0062 
T23 ADDER RELOCATION TEST PART 8 
CLR 80177572 ;TURN MMU OFF 
ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 
. WORD 256 ; UNIQUE ERROR NUMBER 
-.WORD MMUERR sADDRESS OF ERROR MESSAGE 
sNOT EQUAL GO TO ERROR 
2s: CLR 80177572 ; TURN MMU OFF 
CMP (R4), 0333 ;ARE WE DONE 
BNE is ;NO GO TO 1$ 
MOV OPARVA2] ,R4 ;SET POINTERS TO PAR INIT TABLES 
MOV @PARAD2 ,R1 ; 
3$: MOV C(R4)+,ACR1)>+ s INIT PARS 
CMP (R1), 0333 ;ARE WE DONE 
BNE 3$ ;NO, GO TO 3$ 
MOV @MODE2 ,R4 ;SET POINTERS TO ADDER PART B TABLES 
MOV #vIR2,.R1 ; 
MOV @PARVA3S,R2 $ 
MOV #VIR3,.R3 3 
«4S: JSR PC,1TS14 sWRITE DATA TO PHYSICAL ADDRESS AND THEN 
;CHECK IF DATA AT PHYSICAL ADDRESS IS 
sEQUAL TO EXPECTED AND IF NOT DETERMINE 
;IF IT IS AN ADDER ERROR OR A MEMORY ERROR 
CMP CR1),9111 ae DONE ALL THE 22 BIT MODE I SPACE 
; 
BNE 4$ sNO GO TO 4$ 
INC Ri sPOINT TO 22 BIT MODE D SPACE CASE 
INC Ri $ 
INC R4 : 
INC R4 ; 
172516 MOV $27 ,80172516 s INIT MMR 
MOV CR4)+,80177776 s; INIT PSW 
MOV #52525, -( SP) :PUSH DATA ONTO STACK 
177572 MOV #1 ,.80177572 ; TURN MMU ON 
MTPD aC R1)> ;sWRITE DATA TO PHYSICAL ADDRESS 
CLR 8177572 ; TURN MMU OFF 
172516 MOV #20 ,80172516 ; INIT MMR3 
JSR PC,1T14 sCHECK IF DATA AT PHYSICAL ADDRESS IS EQUAL 
:TO EXPECTED AND IF NOT DETERMINE IF IT 
:IS AN ADDER ERROR OR A MEMORY ERROR 
CLR 80172516 ; INIT MMR3S FOR 18 BIT MODE 
JSR PC,17S14 sWRITE DATA TO PHYSICAL ADDRESS AND THEN 
;sCHECK IF DATA AT PHYSICAL ADDRESS IS 
sEQUAL TO EXPECTED AND IF NOT DETERMINE IF 
:IT IS AN ADDER ERROR OR A MEMORY ERROR 
JMP T1L4F IN 


177572 


177776 


; 
sROUTINE TO WRITE DATA TO PHYSICAL ADDRESS AND TO CHECK IF DATA AT 


sPHYSICAL ADDRESS IS EQUAL TO EXPECTED AND IF NOT DETERMINE IF IT IS 

;AN ADDER ERROR OR A MEMORY ERROR 

: 

TS14: MOV (R4)+ ,80177776 sINIT PSw 

MOV @1,80177572 ;TURN MMU ON 

MOV #52525, -(SP) sWRITE DATA ONTO STACK 
MTPI @CR1)> sWRITE DATA TO PHYSICAL ADDRESS vVI4 STACK 
CLR 80177572 ;TURN MMU OFF 

714; MOV #10000 ,80177776 ;sINIT PSwW 


GLOBAL. 


AREAS 


KDJLLA.MAC 


015532 
015536 


015574 
015576 
015600 


015722 


MACY1i1 oom 1952) 
20 -MAR -84 :19 


012237 
012737 
006573 


177425 


11 


172246 
000001 


000000 
052525 


000000 
125252 


177572 


177572 


20 -MAR - 84 


177572 


baad 


133 ™ ‘AboeR REL Searron TEST PART B 


1$: 


2s: 


; 
sNON-EXISTANT MEMORY TRAP ROUTINE 


$ 
NXMTRP: 


s 
sADDER TEST PART B TABLES 
é 
PARADe: 


PARVA2: 


CLR 
MOV 
MOV 
MOV 
CLR 


RTT 


SSSSSSSSEEESSSI9995 


(R2)+,80172246 ; INIT SIPARS 
#1,80177572 ; TURN MMU ON 
@0(R3) 300 RELOCATION 
#52525, (SP)-+ ;IS DATA EQUAL TO EXPECTED 
2$ ;YES GO ON 
@0(R3) sWHAT TYPE OF ERROR IS IT 
net ar ae . 
VAL ERRORS TO TRAP TO EMT VECTOR 

257 ; UNIQUE ERROR NUMBER 
MMUERR ;ADDRESS OF ERROR MESSAGE 

;IT IS A MEMORY ERROR 
2$ 3 

;ALL ERRORS TO TRAP TO EMT VECTOR 

260 ; UNIQUE ERROR NUMBER 
MMUERR ye “A ERROR MESSAGE 

;IT IS AN ADDER ERROR 
9¢177572 ; TURN oE; OF F 
RS ; 
R3 ; 
PC ;RE TURN 
ae@SRO ; TURN OFF MMU. 
@T14F IN, (SP) ;SET UP An WITH RETURN ADDR. 
86SL0CO0 , 804 sRESTORE LOC 4 
8@SLOCO1 , 806 sRESTORE LOC 6 
80177766 


;CLEAR TIME OUT INDICATION FROM 
;CPU ERROR REGISTER 


;RETURN FROM TRAP; GO TO NEXT TEST. 


SEQ 0063 


MS 


GLOBAL AREAS MACY11 os 20-MAR-84 11:31 PAGE 64 


KDJ11A.MAC 20-MAR-84 11:1 T23 ADDER RELOCATION TEST PART 8 
3229 015724 177220 -WORD 177220 
3230 015726 173700 -WORD 173700 
3231 015730 176700 -WORD 176700 
5232 015732 077400 -WORD 077400 
3233 015734 000333 -WORD 333 
5234 015736 070000 vIR2: -WORD 070000 
3235 015740 110000 -WORD 110000 
3236 015742 130000 -WORD 130000 
3237 015744 000000 -WORDB 000000 
32 015746 -WORD 000000 
5239 015750 030000 -WORD 030000 
3240 015752 -WORDB 050000 
5241 015754 052524 -WORD 052524 
3242 015756 -WORD 136000 
5243 015760 130000 -WORD 130000 
3244 015762 000111 -WORD 111 
5245 015764 -WORD 030000 
3246 015766 030000 -WORDB 030000 
5247 015770 030000 MODE2: .WORD 030000 
3248 015772 030000 -WORD 030000 
5249 015774 030000 -WORD 030000 
5250 015776 010000 -WORD 010000 
3251 016000 -WORD 030000 
S252 016002 030000 -WORD 030000 
5253 016004 010000 -WORD 010000 





3260 016022 160000 PARVAS: 


© 
a 
° 
ran 
oO 


5265 016034 170000 ‘ 170000 
3 016036 176000 ‘ 176000 
3267 016040 177552 ‘ 177552 
5268 016042 177400 ‘ 177400 
3269 016044 174000 . 

3270 016046 177000 : 177000 
3271 016050 007500 ‘ 007500 
3272 016052 000333 : 333 
3273 016054 060000 VIRS: ° 060000 
3274 016056 060000 . 060000 
3275 016060 . 060000 


SaSSNGESGSSGUBNGDGDSIINILINI 


3284 016102 060000 


GLOBAL AR 
KDJL1LA.MAC 


EAS 


016106 


016270 


MACY11 30A( 1052) 
20 -MAR - 84 


016104 000333 


001403 
000 


016767 


11:19 


157776 


000040 


016162 


162530 
177572 
162556 
163016 
177776 


20 -MAR - 84 


172354 
162676 
161644 
161424 


161574 


161534 


T23 


; 
T14F IN: 


kisi =6P 65 
ADDER ELOCATION TEST PART B 
. WORD 


333 


NS 


SEQ 9065 


5 § SPSS AASASEASESESESASABASSEEEAAEAEEASEAAEEREDRE REREAD EDEES 


;*#TEST 24 


sAT THIS TIME WE WILL ATTEMPT 


TEST NON-EXISTANT MEMORY TRAP 

5 § PESSEASEASESEEEESESEASASEREEESAADEEREDESASREAEEEARERAREERDALEALDLS 
sWE ARE ASSUMING THAT THE NON-EXISTANT MEMORY TIME OUT 

sFEATURE IS WORKING SINCE WE CAN'T GUARANTEE THAT 

;THE SYSTEM BEING TESTED HAS A NON-EXISTANT MEMORY LOCATION. 


TO TEST THE NXM FUNCTION 


5 § FRSA AAAAESESEEERSEAAEEEREEEAEAEEEAEAEEEEEEERERERERRDADEE DEEDES 


TST24: 


1$: 


2s: 


3$: 


4$: 


NXMF IN: 


TSMM15: 





$TESTN ; INCREMENT TEST NUMBER 
PC ,.MMU sINIT THE MMU 
9177400 , BK IPARG ;SET KIPAR6 TO RELOCATE TO HIGHEST MEMORY 
4,SLOCOO ;SAVE VECTOR 
23.4 ;LOAD VEC WITH ADDR OF TRAP HANDLER 
#BITOO, SRO ;TURN ON THE MMU 
CPEREG ;CLEAR THE CPU ERROR REGISTER 
PS ;CLCAR THE PSW 
80157776 sACCESS PHYSICAL ADOR 17757776 
NXMF IN ;IF IT DOESN’ T TRAP WE'LL ASSUME 
;THAT THIS IA A 4 MEGABYTE SYSTEM 
:AND GO TO THE NEXT TEST 
attain :IS CPU ERROR REGISTER CORRECT? 
: 
;ALL ERRORS TO TRAP TO EMT VECTOR 
261 ; UNIQUE ERROR NUMBER 
MMUERR ;sADDRESS OF ERROR MESSAGE 
some :I1S CONTENTS OF STACK CORRECT? 
; 
;ALL ERRORS TO TRAP TO EMT VECTOR 
; UNIQUE ERROR NUMBER 
RR sADDRESS OF ERROR MESSAGE 
#0,(SP)>+ ;IS CONTENTS OF STACK CORRECT? 
NXMF IN ; 
;ALL ERRORS TO TRAP TO EMT VECTOR 
263 ; UNIQUE ERROR NUMBER 
RR sADDRESS OF ERROR MESSAGE 
SRO ; TURN OFF T 
CPEREG ;CLEAR THE CPU ERROR REGISTER 
SLOCOO,4 sRESTORE THE VECTOR 


5S PESSSSSESASADASEAASERAAEAEAASASSARESERALEEARARASASEAALELERALALDLES 


;*TEST 25 


TST25: 


INC 
CLR 
CLR 
JSR 
CLR 


PAGE WRITTEN BIT TEST 


5 i PEESSAASESEAAEAAAEASEARASAEEAHALEALEHAEEEDREEDADEERDEEEEHROEREREDRELES 


STESTN 
FL 


PC , MMU 
80177776 


80177572 
AG 


; INCREMENT TEST NUMBER 
sMMU OFF 

;CLEAR MMU ABORT FLAG 
sINIT MMU 

; INIT PSwW 


GLOBAL 


AREAS 


KDJLLA.MAC 


016274 
016500 


016304 


016310 
016316 
016322 


016526 


016332 
016356 


016370 


016374 
016400 


016404 
016410 


016414 


20 -MAR 


MACY11 30OAC1 
-84 ll 


012704 
004 767 


004767 


012737 
012704 
004767 


004767 


005037 
012757 
012704 
004767 


004767 


005037 
012704 
004767 


012704 
004 767 


012704 
004 767 


000167 


005001 
012737 
012737 
011111 
005037 
022427 
001403 
104000 
000264 
001215 


062701 
020127 


:1 
172300 
000114 


000164 


050000 
172200 
000072 


000142 


177776 


000114 


177776 
172300 
000162 


172200 
000152 


177600 
000142 


000170 


000020 
000001 


177572 
077506 


020000 
160000 


052) 20-MAR-84 
9 T25 


177776 


177776 


172516 
177572 


MOV 
JSR 


JSR 


bo 


11:31 PAGE 66 
PAGE WRITTEN BIT TEST 


172300,R4 
PC,TS15 


Pc,T15 


050000 ,80177776 
#172200 ,R4 
PC,TS15 


PC,115 


80177776 

#170000 ,80177776 
177600 ,R4 
PC,TS15 


PC,1T1iS5 


80177776 
@172300,R4 
PC,TISA 


9172200,R4 
PC.T1I5A 


©177600,R4 
PC,T1SA 


TISF IN 


sSET POINTER TO KPODRS 

300 RELOCATIONS AND TEST KIPORS FOR 
sPAGE WRITTEN BIT BEING SET AND IF 
sNOT SET GO TO ERROR 

s00 RELOCATIONS AND TEST KDPORS FOR 
sPAGE WRITTEN BIT BEING SET ANO IF NOT 
sSET GO TO ERROR 

s INIT PSW 

sSET POINTER TO SPORS 

s00 RELOCATIONS AND TEST SIPDRS FOR 
sPAGE WRITTEN BIT BEING SET AND IF NOT 
sSET GO TO ERROR 

s00 RELOCATIONS AND TEST SDPORS FOR 
sPAGE WRITTEN BIT BEING SET AND IF NOT 
:SET GO TO ERROR 

sINIT PSW TO A KNOWN STATE 

sINIT PSw 

;SET POINTER TO S 

s00 RELOCATIONS AND TEST UIPORS FOR 
sPAGE WRITTEN BIT BEING SET AND IF 
sNOT SET GO TO ERROR 

300 RELOCATIONS AND TEST UDPORS FOR 
sPAGE WRITTEN BIT BEING SET AND IF NOT 
sSET GO TO ERROR 

sINIT PSW TO A KNOWN STATE 

sSET FOINTER TO XPDRS 

sEXPLICITLY WRITE TO KPORS AND TEST 
sFOR PAGE WRITTEN BIT BEING CLEARED 
sAND IF NOT CLEARED GO TO ERROR 

sSET POINTER TO SPORS 

sEXPLICITLY WRITE TO SPORS AND TEST 
sFOR PAGE WRITTEN BIT BEING CLEARED 
sAND IF NOT CLEARED GO TO ERROR 

;SET POINTER TO UPORS 

sEXPLICITLY WRITE TO UPDRS AND TEST 
sFOR PAGE WRITTEN BIT BEING CLEARED 
;AND IF NOT CLEARED GO TO ERROR 


a 
sROUTINE TO DO RELOCATIONS AND TEST IPORS FOR PAGE WRITTEN BIT BEING 


3SET AND IF 

3 

TS15: CLR 
MOV 

18%; MOV 


2s: 


NOT SET REPORT AN ERROR 


R1 

#20 ,80172516 
01 ,80177572 
(R1),CR1) 
8¢177572 
(R4)+, 077506 
2s 


264 

MMUERR 
#20000 ,R1 
R1, #160000 


3s ADDRE 
s3NQ GO TO ERROR 


sSET POINTER TO VIRTUAL ADDRESS 
: INIT MMRS 
7 TURN MMU ON 
:00 A RELOCATION 
URN MMU 


37 OF F 

sIS DATA EQUAL TO EXPECTED 

:0K GO ON 

sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 

SS OF ERROR MESSAGE 


sPOINT TO NEXT VIRTUAL ADDRESS 
;ARE WE DONE 


SEQ 9066 


C6 


KDUTIA. MAC «20 Mh ba P45 $992? 2O-MAR G8 11:3, PAGE 67, 2, TEST 


016470 
016472 


016572 
016574 


016576 


000287 


013746 
013746 


000002 
000027 
000001 


177572 
077506 


020000 
160000 


077406 


000020 


172516 
177572 


172516 


‘ 
T1i5: 


1%: 


2s: 


; ROUT INE TO EXPLICITLY WRITE TO PORS AND 


RTs 


: 
sROUTINE TO DO RELOCATIONS AND 
sAND IF NOT SET 


CLR 
ADD 


RTS 


be 


REPORT AN 


Ri 


ERROR 


02,R4 
027,80172516 


80177572 


GO To 18 
NP GR, 7o 3 


TEST DPDRS FOR PAGE WRITTEN BIT BEING SET 


sSET POINTER TO VIRTUAL ADDRESS 
sPOINT TO FIRST DPOR 

sINIT MMRS 

sTURN MMU ON 

sPUSH DATA ONTO THE STACK 

300 A apg Le ON 


;TURN MMU OF 
3IS DATA EQUAL TO EXPECTED 
:0K GO ON 

sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 


sNO GO 10 ERROR 


sPCINT TO NEXT VIRTUAL ADDRESS 
sARE WE DONE 


TEST PAGE WRITTEN BIT FOR BEING 


— AND IF NOT CLEARED REPORT AN ERROR 


T1SA: 
13%: 
2s: 


TISF IN: 
3 
TSMMI6: 


CLR 
MOV 
CMP 


R2 


CR4),CR4) 


CR4)+, 877406 
2s 


sCLEAR COUNTER 

300 AN EXPLICIT WRITE TO POR 
sIS DATA EQUAL TO EXPECTED 

5 GO ON 

sALL ERRORS TO TRAP TO EMT VECTOR 
s UNIQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 


3NO GO 10 ERROR 


s INCREMENT POINTER 
ARE OONE 


bf OOOO8 S606 66460068 64660606066060800000600600000660606000000000000808 


TEST CSM (CALL SUPERVISOR MODE) 


s*TEST 26 


EF Rededetethtetetadetetedetde tthe et ELI Li Li Li LititilLititTtTTTTTTTTTTTT 


TST26: 


sSTESTN 


80177572 


BOF LAG 


OTMMIGE ,R4 
PC MMU 
®37,80172516 
80177776 


9014, - (SP) 
8616, -( SP) 


s INCREMENT TEST NUMBER 
sMMU OFF 

;CLEAR MMU ABORT FLAG 
2INIT RG 

gINIT MMU 

sENABLE CSM INSTRUCTION 
:;SET PS TO KER MODE 
sSAVE VECTORS 

3 

; 


St Q 


OO 7 


- 


D6 


KDUYIA.ARE®? 20" ARAtag 3Pf6 $852? 20-MAR; G6 11:52. PAGE 6a. SUPERVISOR MODE ) 


016662 
016670 
016676 
016704 
016706 
016710 
016712 


016714 


016742 
016744 


016746 


016772 
016774 


016776 


017132 


012737 


017214 


017110 
000027 
140000 


017144 
000027 
177776 


000634 


007777 
000000 


177604 


007777 
030000 


000010 
172516 
177776 


000010 
172516 


172516 
177776 


177776 
000010 


177776 
177776 


177776 
177776 


TSM16A: 


TSM16B: 


TSM16C: 


TSM160: 


TMM16B8: 


1%: 


TMM16C: 














oTMM166 ,8010 
0137,8014 
@TMM16A,8016 
7014 


267 
MMUERR 


@TMM16C ,8010 
927,80172516 
#140000 ,80177776 
7014 


270 
MMUERR 


@TMM16D0,8010 
@27,80172516 
80177776 
7014 


271 
MMUERR 


037,900172516 
40000 , 80177776 

0700, R6 

#140000, 80177776 

014,8010 


7024 





272 
MMUERR 


TM16A 


07777,80177776 
00 ,80177776 
i$ 


273 
MMUERR 


(SP )- 

(SP )> 

TSMI6A 

07777 ,80177776 
T weaiecnccalallales 
1 


274 
MMUERR 


sSETUP NEW VECTORS 
3 


5 
s TEST INSTRUCTION 
sALL_ ERRORS TO TRAP TO EMT VECTOR 
ADDRES ERROR NUMBER 
ORESS OF ERROR MESSAGE 


AD 
3GO TO ERROR IF NOT TRAPPED 


sSETUP NEW VECTOR 
sDISABLE CSM INSTRUCTION 
sSET PS TO USER MODE 


s TEST INSTRUCTION 
sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 

S OF ge MESSAGE 


s ADDRES 
sGO TO ERROR IF NOT TRAPPED 


sSETUP NEW VECTOR 
sDISABLE CSM INSTRUCTION 
sSET PS TO KER MODE 
; TEST INSTRUCTION 
sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 
S OF er 


s ADDRES 
;GO TO ERROR IF NOT TR 


sENABLE CSM INSTRUCTION 
sSET PS TO SUP MODE 


sSETUP NEW VECTOR 
sSET ALL CC BITS 
; TEST INSTRUCTION 


sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 

:GO TO ERROR IF NOT TRAPPED 


;CLEAR UNWANTED BITS 
:IS PS CORRECT 
;YES GO ON 
sALL ERRORS TO TRAP TO EMT VECTOR 
: UNIQUE ERROR NUMBER 
sADORESS OF ERROR MESSAGE 
sNO GO TO ERROR 
s;CLEAN UP STACK 


5 
sCONTINUE TESTING 

:CLEAR UNWANTED BITS 

:IS PS CORRECT 

:YES GO ON 

sALL ERRORS TO TRAP TO EMT VECTOR 
s UNIQUE ERROR NUMBER 

:ADDRESS OF ERROR MESSAGE 


SEQ 


NO6FR 


GLOB 


KDJLIA. 


Ai. AREAS 
MAC 


017172 


017210 
017214 
017222 
017224 
017226 
017230 


017232 
017236 
017240 
017242 
017244 


017246 


017312 


017314 
017320 
017322 
017324 
017326 


MAC111 30A( 1052) 20-MAR-84 
20-MAR-84 11:19 T26 


001403 


177602 
007777 
000000 


177576 


000474 
070017 


000572 


017202 


017200 


156430 


017042 


177776 
177776 


177776 


156430 


1%: 


TMM16D: 


1%: 


TMMIGE : 
TMM16F : 


TMM16A: 


1$: 


2s: 


3$: 


4%: 


5$: 


il: 


31 


TsT 
TsT 
JMP 
BIC 
CMP 
SEQ 
ERROR 








E6 


PAGE 69 
TEST CSM (CALL SUPERVISOR MODE ) 


;NO GO TO ERROR 


te ;CLEAN UP STACK 
¢ ' 
TSM16B8 sCONTINUE TESTING 
07777,80177776 ;CLEAR UNWANTED BITS 
#0 ,89177776 3IS PS CORRECT 
1% sYES GO ON 
;ALL ERRORS TO TRAP TO EMT VECTOR 
275 sUNIQUE ERROR NUMBER 
MMUERR sADDRESS OF ERROR MESSAGE 
sNO GO 10 ERROR 
(SP )-+ ;CLEAN UP STACK 
(SP )e ; 
TSM16C :;CONTINUE TESTING 
156430 ; TEST LOCATION 
;ALL ERRORS TO TRAP TO EMT VECTOR 
276 s; UNIQUE ERROR NUMBER 
MMUERR sADDRESS OF ERROR MESSAGE 
3G0 TO ERROR IF DION’ T ABORT 
TM16A 
$70017,80177776 :IS PS CORRECT 
1$ ;YES GO ON 
sALL ERRORS TO TRAP TO EMT VECTOR 
277 s; UNIQUE ERROR NUMBER 
MMUERR sADDRESS OF ERROR MESSAGE 
sNO GO TO ERROR 
R6.@572 :IS SP CORRECT 
2$ ;YES GO ON 
sALL ERRORS TO TRAP TO EMT VECTOR 
300 :; UNIQUE ERROR NUMBER 
MMUERR sADDRESS OF ERROR MESSAGE 
sNO GO TO ERROR 
R4, @TMMIGE +2 :IS R4& CORRECT 
33 :YES GO ON 
sALL ERRORS TO TRAP TO EMT VECTOR 
301 s; UNIQUE ERROR NUMBER 
MMUERR sADORESS OF ERROR MESSAGE 
sNO GO TO ERROR 
SOTMMIG6E , 156430 :IS TEST LOCATION OK 
4$ ;YES GO ON 
;ALL ERRORS TO TRAP TO EMT VECTOR 
302 ; UNIQUE ERROR NUMBER 
MMUERR sADDRESS OF ERROR MESSAGE 
sNO GO TO ERROR 
(SP )+, #156430 sIS STACK CORRECT 
S$ :;YES GO ON 
sALL ERRORS TO TRAP TO EMT VECTOR 
303 sUNIQUE ERROR NUMBER 
MMUERR sADDRESS OF ERROR MESSAGE 
3NO GO TO ERROR 
(SP )+, OTSM16D :IS STACK CORRECT 
6$ :YES GO ON 
sALL ERRORS TO TRAP TO EMT VECTOR 
304 s UNIQUE ERROR NUMBER 
MMUERR sADDRESS OF ERROR MESSAGE 


SEQ 9069 


F6 


GLOBAL AREAS MACY11 30AC1052) 20-MAR-84 11:31 PAGE SEQ 9070 
KDJLLA.MAC 20-MAR-84 11:19 T26 TEST CSM (CALL SUPERVISOR MODE ) 
3565 sNO GO TO ERROR 
3566 017330 022627 140000 6%: CMP (SP )+,%140000 3IS STACK CORRECT 
3567 017334 001403 BEu 7$ sYES GO ON 
3568 017336 104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
3569 017340 -WORD 305 sUNIQUE ERROR NUMBER 
3570 017342 001213 -WORD  MMUERR sADDRESS OF ERROR MESSAGE 
3571 sNO GO TO ERROR 
3572 0173544 012706 000700 7$: MOV #700 ,R6 sRESTORE SUP SP 
$573 017350 012737 140000 177776 MOV #140000, 90177776 sSET PS TO USER MODE 
3574 017356 020627 000600 CMP » 9600 ;IS USER SP CORRECT 
3575 017362 001403 BEQ 8$ ;YES GO ON 
3576 017364 104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
3577 017366 000306 -WORD 306 s UNIQUE ERROR NUMBER 
3578 017370 001213 .WORD MMUERR sADDRESS OF ERROR MESSAGE 
3579 ;NO GO 10 ERROR 
5580 017372 012767 077400 152600 83: MOV #77400, SIPDRO sSETUP SIPDRO TO ABORT 
3581 017400 012737 017202 000016 MOV OTMMI6F ,8016 ;SETUP VECTOR 
3582 017606 012737 000001 001042 MOV 01 ,90FLAG sSETUP FLAG FOR AN ABORT 
3583 017414 012737 000001 177572 MOV #1,80177572 ; TURN MMU ON 
5584 017422 010701 R7,R1 sSAVE OLD PC 
3585 017424 007014 ; TEST INSTRUCTION 
5586 017426 022737 000000 001042 sDID AN ABORT OCCUR 
3587 017434 001403 sYES GO ON 
3588 017436 104 sALL ERRORS TO TRAP TO EMT VECTOR 
3589 017440 000307 307 sUNIQUE ERROR NUMBER 
3590 017442 001213 MMUERR sADDRESS OF ERROR MESSAGE 
3591 sNO GO TO ERROR 
5592 017444 023701 001076 9$: BESAVMRe] ,R1 sIS MMR2 CORRECT 
3593 017450 001403 10$ :YES GO ON 
3594 017452 104000 sALL ERRORS TO TRAP TO EMT VECTOR 
3595 017454 000310 ‘ 310 s UNIQUE ERROR NUMBER 
3596 017456 001213 -WORD MMUERR sADDRESS OF ERROR MESSAGE 
3597 sNO GO TO ERROR 
3598 017460 023727 001072 100041 10%: CMP BOSAVMRO , 100041 :IS MMRO CORRECT 
3599 017466 001403 BEG 11% ;YES GO ON 
3600 017470 104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
5601 017472 000311 -WORD 311 s UNIQUE ERROR NUMBER 
3602 017474 001213 ‘ MMUERR sADDRESS OF ERROR MESSAGE 
3603 3NO GO 10 ERROR 
3604 017476 012737 000037 172516 118: MOV 037 .,80172516 sENABLE C 
3605 017 012737 040000 177776 MOV #40000 ,80177776 ;SET PSW TO SUP 
017512 012706 000700 MOV #700, RE SETUP 
5607 017516 012737 140000 177776 MOV #140000 , 80177776 ;SET PSW TO USE 
3606 017524 012706 MOV 9600 ,R6 ;SETUP USE SP 
5609 017530 012737 000014 000010 MOV 014, 8010 ;SETUP NEW VECTOR 
3610 017536 012737 017564 000016 MOV o1S16, 8016 sSETUP NEW VECTOR 
3611 017544 000277 scc sSET ALL CC BITS 
3612 017546 007027 -WORD 7027 sTEST INSTRUCTION 
3613 017550 045712 -WORD 45712 
3614 017552 TS16A: E 
3615 017552 104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
3616 017554 000312 ‘ 312 sUNIQUE ERROR NUMBER 
3617 017556 001213 -WORD MMUERR sADDRESS OF oT te oe 
3618 :GO TO ERROR IF DION’ T 
3619 017560 000167 000124 JMP TM16A 
3620 017564 022737 070017 177776 1516: CMP #70017 ,80177776 :IS PSW CORRECT 

















GLOBAL 


AREAS 


KOJLIA, MAC 


017572 


017614 


017616 
017622 


017632 
017636 
017640 
017642 
017644 


017714 


000572 


045712 


0175S2 


140000 


000700 
140000 
000600 


177776 
157652 


177776 


201$: 


2028: 


2035: 


2043: 


TML6A: 














G6 
20-MAR Ba tists) 2O-MAR 88 tte PASE feat supervisor MODE ) 


200% 


313 
MMUERR 


R6,0572 
201% 


314 
MMUERR 


(SP)+, 045712 
202$ 

315 

MMUERR 

(SP )+,@TS16A 
203% 

316 

MMUERR 

(SP )+,#140000 
204 $ 





317 
MMUERR 


#700,R 


2140000, 80177776 
R6 , #600 


TMI6A 


320 
MMUERR 


80177776 
SRO 


(SP )+,a@10 


;YES GO ON 
;ALL ERRORS TO TRAP TO EMT VECTOR 
s UNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 
:;NO GO TO ERROR 
sIS SP CORRECT 
:;YES GO ON 
;ALL ERRORS TO TRAP TO EMT VECTOR 
ieee ERROR NUMBER 
SS OF ERROR MESSAGE 
3;NO GO TO ERROR 
:3IS STACK CORRECT 


;YES GO ON 
;ALL ERRORS TO TRAP TO EMT VECTOR 
s UNIQUE ERROR NUMBER 


sADDRESS OF ERROR MESSAGE 
:NO GO TO ERROR 
:I1S STACK CORRECT 
;YES GO ON 
;ALL ERRORS TO TRAP TO EMT VECTOR 
s UNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 
;NO GO 10 ERROR 
= STACK CORRECT 
:YES GO ON 
;ALL ERRORS TO vl TO EMT VECTOR 
:; UNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 
;NO GO 10 ERROR 
sRESTORE SUP SP 
;SET PSW TO USER MODE 
:IS USER SP CORRECT 


:YES GO ON 
sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 
:NO GO TO ERROR 
;SET PS TO KER MODE 
;TURN OFF MMU 


sTURN OFF 22 BIT ADDRESSING, I € D SPACE 
sRESTORE VECTORS 

3 

; 


SEQ 0071 


GLOBAL 
KDJLIA 


AREAS 
.MAC 


017740 
017740 


MACY11 30AC1 
20 -MAR-84 11:1 


161042 
020046 


1610350 
100000 


020125 
160776 


020042 
000042 


O52) 
S 


<0 -MAR - 84 


161022 


T26 


11:31 PAGE 72 
TEST CSM (CALL SUPERVISOR MODE) 


-MCALL IDMSG,ENDPAS 
-SBTTL. END OF PASS ROUTINE 


3b § POSESESSESSSESEEEEEEEADEDEDEDASEAEEEEADAREEREDADEEEAEADAEDAEDDES 
s*INCREMENT THE PASS NUMBER ($PASS) 

;*INDICATE END-OF -PROGRAM AFTER 1 PASSES THRU THE PROGRAM 

;*IF THERES A MONITOR GO TO IT 

3*IF THERE ISN’'T JUMP TO RESTART 


$EOP: 


T 
SKIPID: 


D 
sSEOPCT: 


MO 
SENDCT: .WORD 


$GET4e: 
SENDAD: 


$DOAGN: 


$RTNAD: . 
SENULL: 


MSG1: 


MSG2: 





Flo 


$PASS ;ONLY TYPE MESSAGE AT END OF FIRST PASS 
SKIPID ;IF >O THEN SKIP THE ID MESSAGE 

»MSG1 sELSE TYPE THE ID MESSAGE 

SPASS ;; INCREMENT THE PASS NUMBER 

#100000, $PASS ;;DON‘'T ALLOW A NEG. NUMBER 

(PC) ; sLO0P? 

$DOAGN 33 YES 

Serie ssRESTORE COUNTER 


»MSG2 
$PASS, -(SP) 


PC,CRO) 


acPC )+ 


RESTART 
-1,-1,.0 


3sSAVE $PASS FOR TYPEOUT 
33GO TYPE--DECIMAL ASCII WITH SIGN 


;:;GET MONITOR ADDRESS 

; ;sBRANCH IF NO MONITOR 
::;CLEAR THE WORLD 

:;GO TO MONITOR 

:sSAVE ROOM 

33F OR 

s3;ACTil 

: ;RETURN 

;sNULL CHARACTER STRING 


<CR><LF>/CZKDK-B8-0 KDJ11 MEMORY MANAGEMENT DIAGNOSTIC/ 


<CR><LF>/CZKDKB END PASS #/ 


-EVEN 
-SBTTL TYPE ROUTINE 


5 FE PEOESEEEAEEASESEEAESEOHEDHEAEESEHOEEEEEEEREDEDEREEDEDEREDLLRELE 
s*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 


- 


OBA AREAS 
KDJLLA.MAC 


112716 


000343 


160620 
160611 


160567 


16 


TYPE Routine CE ” 


; *NOTE1: 

; *NOTE2: 

; *NOTES: 

;* 

; *CALL 

3; 

;*OR 

3% TYPE 

;* ME SADR 

34 

$TYPE: TSTB8 
BPL 
HALT 
BR 

18%: MOV 
MOV 
CMPB 
BNE 
BITB 
BEQ 
MOV 
JSR 

618: 

62$: BITS 
BNE 

2$: MOVB 
BNE 
TST 

60$: MOV 

3$: ADD 
RTI 

4s: CMPB 
BEQ 
CMPB 
BNE 
TST 
TYPE 
sCRLF 
CLRB 
BR 

S$: JSR 

6$: CMPB 
BNE 
MOV 

7$;: DECB 
BLT 
JSR 
DECB 
BR 

;HORIZONTAL TAB 

8$: MOVB 


$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
$FILLS CONTAINS THE NUMBER OF 
$FILLC CONTAINS THE CHARACTER 


3#1) USING A TRAP INSTRUCTION 
TYPE »MESADR 


$TPFLG 
i$ 


3$ 

RO, -(€SP) 

82° SP),RO 
@APTENV, SENV 
62$ 
@APTSPOOL , SENVM 
62$ 


RO,61$ 
PC,SATY3 


0 
®APTCSUP , SENVM 
60$ 
CRO)+, -C SP) 
4$ 

(SP )- 

CSP )+,RO 
@2,(SP) 

@HT CSP) 

8$ 

@CRLF .CSP) 
5s 

CSP )-« 


SCHARCNT 
es 


PC, $TYPEC 


2 

SNULL, -€SP) 
i¢ SP) 

6% 

PC, STYPEC 
SCHARCNT 

7$ 
PROCESSOR 
&' CSP) 


FILLER CHARACTERS REQUIRED. 
TO FILL AFTER, 


ssMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


33IS THERE A TERMINAL ? 


;;8R IF YES 

;;HALT HERE IF NO TERMINAL 

3; ;sLEAVE 

33;SAVE RO 

:3;GET ADDRESS PA ASCIZ STRING 
; sRUNNING IN T MODE 


;3;NO,GO CHECK F FOR a! nae 
; : SPOOL MESSAGE TO AP 
33NO,GO CHECK FOR CONSOLE 
; ;SETUP MESSAGE yp FOR APT 
33SPOOL MESSAGE TO AP 
s;MESSAGE ADDRESS 
; APT CONSOLE SUPPRESSED 
:;3;YES,SKIP TYPE OUT 
; 3PUSH CHARACTER TO BE TYPED ONTO STACK 
:3;B8R IF IT ISN’ T THE TERMINATOR 
33If TERMINATOR POP IT OFF THE STACK 
: sRESTORE RO 
; SADJUST RETURN PC 
;3RET 
;:;BRANCH IF <PhT> 


3 ;BRANCH IF NOT <CRLF> 


:;POP <CR°><LF> EQUIV 
:;TYPE A CR AND LF 


;:CLEAR CHARACTER COUNT 

;:GET NEXT CHARACTER 

3:GO TYPE THIS CHARACTER 

:3IS IT TIME FOR FILLER CHARS. ? 
NEXT CHAR, 


:3IF NO GO GET 
33;GET @ OF FILLER CHARS. NEEDED 
:3AND THE NULL CHAR. 


::D0ES A NULL NEED TO BE TYPED? 

:3BR IF NO--GO POP THE NULL OFF OF STACK 
3:GO TYPE A NULL 

::00 NOT COUNT AS A COUNT 

; 3LOO0P 


:;REPLACE TAB WITH SPACE 


SEQ 907% 


GLOBAL 


AREAS 


KDJLLA.MAC 


MACY11 30AC1 
20-MAR-84 11:1 


000014 
000007 


- ale 20-MAR 


900124 


000042 
000002 








JO 


-84 11:31 PAGE 74 
TYPE ROUTINE 
9$: JSR PC, $TYPEC s3; TYPE &£ SPACE 
BITS @7., $CHARCNT : ;BRANCH IF NOT AT 
BNE iE ;3;TAB STOP 
TST (SP )>+ 3;POP SPACE OFF STACK 
2$ ;;GET NEXT CHARACTER 
STYPEC: 
TSTB as TKS ;:;CHAR IN KYBD BUFFER? ;MJD001 
BPL 10$ ;;8R IF NOT sMJDOO1 
MOV asTKB, -( SP) ;:;GET CHAR ;MJDOO1 
BIC #177600,(SP) ;;STRIP EXTRANEOUS BITS ;MJD001 
CMPB &$xOFF (SP) ;;WAS CHAR XOFF ;MJD001 
BNE 102$ ;;BR I” NOT ;MJDOO1 
101%: ;MJ0001 
TSTB asTKS ;;WAIT FOR CHAR ;MJDO01 
BPL 101$ ;MJ0001 
MOVB 8s TKB, (SP) ;3;GET CHAR ;MJDO001 
BIC #177600,(SP) :3STRIP IT ;MJD001 
CMPB &$X0ON,(SP) 33;WAS IT XON? sMJDO001 
BNE 101$ :;;BR IF NOT :>4JD001 
102$: 7>MJD001 
TST (SP )-+ 33sF IX STACK >MJDO001 
10$: sMJDO01 
TSTB QsTPsS ;:WAIT UNTIL PRINTER IS READY 
BPL 10$ sMJDOO1 
MOVB 2(SP).asTPB ;;LOAD CHAR TO BE TYPED INTO DATA REG. 
CMPB OCR ,2(SP) 33;I1S CHARACTER A CARRIAGE RETURN? 
BNE 1$ ; ;B6RANCH IF NO 


a - CHARACTER COUNT 
33 

:3I1S CHARACTER A LINE FEED? 
; ;sBRANCH IF YES 

; sCOUNT THE CHARACTER 

; ;CHARACTER COUNT STORAGE 


ssTTY KDB STATUS 3MJD001 
ssTTY KBO BUFFER sMJDOO1 
3sTTY PRINTER STATUS REG. ADDRESS 








sTPB: . WORD 177566 3; TTY PRINTER BUFFER REG. ADDRESS 

SNL: .BYTE O ;s;CONTAINS NULL CHARACTER FOR FILLS 

SFILLS: .BYTE 2 ::;CONTAINS @ OF FILLER CHARACTERS REQUIRED 
SFILLC: .BYTE 12 ;sINSERT FILL CHARS. AFTER A “LINE FEED” 
STPFLG: .BYTE 0 33 “TERMINAL AVAILABLE” FLAG (BIT<07>=0=YES) 
$QUES: .ASCII "?” ; ;QUESTION MARK 

SLF: ‘borer <12> ; ;LINEFEED 

SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 





Ss 
s*SIGNED DECIMAL CASCII) NUMBER AND 





eNUMBER IS PO 


TYPE IT. DEPENDING ON WHETHER THE 
A MINUS SIGN WILL BE TYPED 








OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
;*REPLACED WITH SPACES. 
;#CALL: 

NUM, -( SP) 


34 MOV 3;PUT THE BINARY NUMBER ON THE STACK 


SEG 0074 


IK 


GLOBAL AREAS MACY11 30A(1052) 20-MAR-84 £3333 PAGE 75 SEQ NOT, 
KDJ1L1A.MAC 20 -MAR-84 11:19 CONVE BINARY TO DECIMAL AND TYPE ROUTINE 

oone 3¢ TYPOS :;3GO TO THE ROUTINE 

3838 020526 s$TYPDS: 

3839 020526 010046 MOV RO, -(SP) ;;PUSH RO ON STACK 

3840 020530 010146 MOV R1,-(SP) ;3PUSH R1 ON STACK 

3841 020532 010246 MOV Ro, -(SP) ;;PUSH R2 ON STACK 

3842 020534 010346 MOV R3,-CSP) ;3PUSH R3 ON STACK 

3843 020536 010546 MOV RS, -CSP) ;;PUSH RS ON STACK 

3844 020540 012746 020200 MOV #20200, -( SP) ;3;SET BLANK SWITCH AND SIGN 

3845 020544 016605 000020 MOV 20(SP),R5 ;;GET THE INPUT NUMBER 

3846 020550 100004 BPL 18 ;;BR IF INPUT IS POS. 

3847 020552 005405 NEG RS ;;3MAKE THE BINARY NUMBER POS. 

3848 020554 112766 000055 000001 MOVB @'-,10SP) ;;MAKE THE ASCII NUMBER NEG. 

3849 020562 005000 1$: CLR RO 3;ZERO THE CONSTANTS INDEX 

3850 020564 012703 020742 MOV @s$DBLK,R3 :;SETUP THE OUTPUT POINTER 

3851 020570 112723 000040 MOVB @' ,CR3)- 3;SET THE FIRST CHARACTER TO A BLANK 

3852 020574 005002 2s: CLR RO ;;CLEAR THE BCD NUMBER 

3853 020576 016001 020732 MOV SDOTBL(RO),R1 ;3;GET THE CONSTANT 

3854 020602 160105 3$: SUB R1,R5 :3:FORM THIS BCD DIGIT 

3855 020604 002402 BLT 4$ 3;8R IF DONE 

3856 005202 INC Ro ;; INCREASE THE BCD DIGIT BY 1 

3857 020610 000774 BR 3$ 

3858 020612 060105 4$: ADD R1,R5 ;:ADD BACK THE CONSTANT 

3859 020614 005792 TST Re ;:;CHECK IF BCD DIGIT=0 

3860 020616 001002 BNE 5$ :;FALL THROUGH IF O 

3861 020620 105716 TSTB (SP) ;;STILL DOING LEADING 0'S? 

3862 020622 100407 BMI 7$ :;;B8R IF YES 

3863 020624 106316 S$: ASLB (SP) ;3MSD0? 

3864 020626 103003 BCC 6$ ;;6R IF NO 

5865 020630 116663 000001 177777 MOVB 1(SP), -1(R3) :3YES--SET THE SIGN 

3866 020636 052702 000060 6$: BIS $'0O,Re ;3;MAKE THE BCD DIGIT ASCII 

3867 020642 052702 000040 7$: BIS ®' ,R2 3sMAKE IT A SPACE IF NOT ALREADY A OIGIT 

3868 020646 110223 MOVE :sPUT THIS CHARACTER IN THE OUTPUT BUFFER 


:;3;JUST INCREMENTING 
:;CHECK THE TABLE INDEX 
;:;GO DO THE NEXT DIGIT 


3872 020660 003002 33GO TO EXIT 

5873 020662 010502 ;;GET THE LSD 

3874 020664 000764 33GO CHANGE TO ASCII 

3875 020666 105726 8$: 3sWAS THE LSD THE FIRST NON-ZERO? 
3876 020670 100003 336R IF NO 


3877 020672 116663 177777 177776 


;:YES--SET THE SIGN FOR TYPING 
3878 020700 105013 9$: 


:;3;SET THE TERMINATOR 
:3;POP STACK INTO RS 
33sPOP STACK INTO R3 
:3;POP STACK INTO Ro 





3882 020710 012601 CSP)+,R1 33;POP STACK INTO R1 
3883 020712 012600 MOV CSP )+,RO 3sPOP STACK INTO RO 
3884 020714 104401 020742 TYPE » S0BLK 3sNOW TYPE THE NUMBER 
3885 020720 016666 000002 000004 MOV 2(SP),4(SP) ;sADJUST THE STACK 
3886 020726 012616 MOV (SP)+,(SP) 

3887 020730 9000002 RTI ;;RETURN TO USER 

3888 020732 023420 SOTBL: 10000. 

5889 020734 001750 1000 

3890 020736 000144 100 


GLOBAL AREAS 
KDJLLA.MAC 


020742 000004 


021110 


MACY11 30A( 1052) 


20 -MAR -84 


11:19 


000076 
177770 


20 -MAR - 84 


L6 


conveat: BiNARI T TO SECIMAL AND TYPE ROUTINE 


SOBLK: .BLKW 4 
-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


5 SPPSHOSSSSESSEEEEES DS AEREAEEESEEEESESEDEESEDAEEERDRERDELADEEEEEES 

s*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
s*OCTAL CASCII) NUMBER AND TYPE IT. 

3*#$7YPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


;;NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 
:sN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 


:31=TYPE LEADING ZEROS 


;*CALL: 

;* MOV NUM, -C SP) 

;* TYPOS 

;* -BYTE N 

34 BYTE M ;3M=1 OR O 
34 

2 


;30=SUPPRESS LEADING ZEROS 


;* 
3#$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
;#$TYPOS OR $TYPOC 


;*CALL: 
3% MOV NUM, -(C SP) 
a TY 





; ;sNUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 


| a$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
is 


3 4C 
7% NUM, -C SP) ; ;sNUMBER TO BE TYPED 
3% ::;CALL FOR TYPEOUT 
sTYPOS: ac SP), -(SP) :3;PICKUP THE MODE 
1€SP), SOF ILL :;3LOAD ZERO FILL SWITCH 
C(SP)+,$OMODE+1 ;;NUMBER OF DIGITS TO TrPE 
OS ; sADJUST RETURN ADDRESS 
$TYPOC: #1, SOF ILL 33SET THE ZERO FILL SWITCH 
$ 1 :3;SET FOR SIX(6) DIGITS 
STYPON: #5, SOCNT 3:;SET THE ITERATION COUNT 
R3,-CSP) 33;SAVE R3 
R4,-CSP) 3;SAVE R4 
RS. -C(SP) 33; SAVE RS 
aac cia ;;GET THE NUMBER OF DIGITS TO TYPE 
66 ,R4 :;SUBTRACT IT FOR MAX. ALLOWED 
R4 , SOMODE ::;SAVE IT FOR USE 
SOF ILL, R4 ;:GET THE ZERO FILL SWITCH 
12(SP),R5 ;s;PICKUP THE INPUT NUMBER 
R3 ;:;CLEAR THE OUTPUT WORD 
1%: RS :sROTATE MSB INTO "C” 
3$ ;:GO MSB 
2s: RS :33-ORM THIS DIGIT 
RS 
RS 
RS,.R3 
3$: R3 ;3GET LSB OF THIS DIGIT 
$ OMODE 33TYPE THIS DIGIT? 
7$ ;;8R IF NO 
BIC $177770,R3 33;GET RID OF JUNK 
BNE 4$ ;3;TEST FOR O 
TST R4 ;;SUPPRESS THIS 0? 


SEQ 9076 


M6 








GLOBAL AREAS MACY11 30A(1052) 20-MAR- 1 SEQ 007 
KDJ11A.MAC 20 - -84 11:19 BiNaR: 143 ocTAC (ASCII) AND TYPE vediiens 

53948 021112 001403 BEQ 5$ A + IF YES 

3949 021114 4$: INC R4 ;D0N‘T SUPPRESS ANYMORE 0'S 

3950 021116 052703 000060 BIS #'O,R3 ; }MAKE THIS DIGIT ASCII 

3951 021122 052703 000040 5$: BIS #’ ,R3 ;;sMAKE ASCII IF NOT ALREADY 

3952 021126 110367 000040 MOVB R3,8$ 3;SAVE FOR TYPING 

3953 021132 104401 021172 TYPE .8$ 33GO TYPE THIS DIGIT 

3954 021136 105367 7$: DECB $OCNT ;;COUNT BY 1 

3955 021142 003347 BGT 2$ 33;BR IF MORE TO DO 

3956 021144 002402 BLT 6$ ;;BR IF DONE 

3957 021146 005204 INC R4 ;; INSURE LAST DIGIT ISN’T A BLANK 

5958 021150 000744 BR 2$ ;;GO DO THE LAST DIGIT 

3959 021152 012605 6$: MOV (SP)+,R5 ;;RESTORE RS 

3969 021154 012604 MOV (SP)+,R4 ; RESTORE R4 

3961 021156 012603 MOV (SP )+,R3 ; sRESTORE R3 

3962 021160 016666 000002 000004 MOV 2(SP),4(SP) 33;SET THE STACK FOR RETURNING 

3963 021166 012616 MOV (SP)+, CSP) 

3964 021170 2 RTI ; sRETURN 

3965 021172 000 8$: -BYTE 0O ;sSTORAGE FOR ASCII DIGIT 

3966 021173 000 BYTE 0O ;; TERMINATOR FOR ne | ROUT INE 

3967 021174 000 SOCNT: .BYTE O ;;OCTAL DIGIT COUNTE 

3968 021175 000 SOFILL: .BYTE 0O 3;ZERO FILL SWITCH 

3969 021176 000000 $OMODE: .WORD 0 3 sNUMBER OF DIGITS TO TYPE 

4 ng ~SBTTL TTY INPUT ROUTINE 

1 

3972 § § SERAASSESESASESESADEEARERAEAEAEAAADAADEDEEEEEDDBEDDERERDEDEEEASE 

3973 : LSB 

3974 

3975 § S PESSMEASAAEASSSESSALALASEEAEEAAAERSEEEEAEARAADAEAREAALALARRLASSL Ob 

3976 ;*#SOFTWARE SWITCH REGISTER CHANGE 

3977 ;*ROUTINE IS ENTERED FROM THE TRAP HANDLER AND WILL 

3978 FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 

3979 ;*WHEN OPERATING IN TTY FLAG MODE. 

3980 021200 022767 000176 157640 SCKSUR: CMP @SWREG . SWR 33IS THE pp be SWR SELECTED? 

3981 021206 001074 S$ ; ;BRANCH IF NO 

3982 021210 105777 177272 asTKS ; ;CHAR THERE? 

3983 021214 10007 BPL 15$ 33IF NO, DON’T WAIT AROUND 

3984 021216 117746 177266 MOVB Os TKB, -CSP) ;;SAVE THE CHAR 

3985 021222 042716 177600 BIC #tC177,C(SP) :;STRIP-OFF THE ASCII 

3986 021226 022726 000007 CMP @7,¢CSP)-+ :3IS IT A CONTROL G? 

3987 021232 001062 BNE 15$ fet RETURN TO USER 

3988 021234 126727 000514 000001 CMPB SAUTOB, 1 ; ARE WE RUNNING IN AUTO-MODE? 

ooo. 021242 001456 BEQ 1S$ ; BRANCH IF YES 

3991 021244 104401 021725 TYPE - $CNTLG ssECHO THE CONTROL-G (tG) 

$992 021250 104401 021732 $GTSWR: TYPE » SMSWR 33TYPE CURRENT CONTENTS 

3993 021254 016746 156716 V SWREG, -( SP) 33;SAVE SWREG FOR TYPEOUT 

3994 021260 104402 TYPOC 3:GO TYPE--OCTAL a DIGITS) 

3995 021262 104401 021743 TYPE » SMNEW ; PROMPT FOR NEW S 

3996 021266 005046 19%: CLR -(SP) ;;CLEAR COUNTER 

3997 021270 005046 CLR -(SP) ;3;THE NEW SWR 

3998 021272 105777 177210 7$: TSTB asTKS ::CHAR THERE? 

poe 021276 100375 BPL 7$ 33IF NOT TRY AGAIN 

4001 021300 117746 177204 MOVB @$TKB, -( SP) ;;PICK UP CHAR 

4002 021304 042716 177600 BIC #*C0177,CSP) ;;MAKE IT 7-BIT ASCII 








AREAS 


KDJ1L1A.MAC 


021310 


021460 


021524 


N6 


20-MAR=B4 11:19) °° MARTEY MGT Routine? 


2662 
001013 
105777 


000002 
177776 
020522 


000004 
177010 


177004 
177600 
000004 


176756 


157474 


000001 
277106 


9$: 


17$: 


18$: 
. OSABL 


3% SESCSEASESSOEASEEAASEASSEDASEASERASALSALEASALALLALALALLLALLLAALS 





TYPE 
BR 
LSB 


(SP),@25 
10$ 
» SCNTLU 


#6, SP 
19$ 


7 alalaaata 


15$ 
#100 ,8$TKS 


PC, $TYPEC 
ew 


CSP) 
at CSP) 


SQUES 
208 


33IS IT A CONTROL -U? 
;;BRANCH IF NOT 

33YES, ECHO CONTROL -U (tu) 
;; IGNORE PREVIOUS INPUT 
;sLET’'S TRY IT AGAIN 


33;1S IT A <CR>? 

; ;BRANCH IF NO 

;;YES, IS IT THE FIRST CHAR? 
; ;BRANCH IF YES 

;;SAVE NEW SWR 

;;CILEAR UP STACK 

;sECHO <CR> AND <LF> 
;;RE-ENABLE TTY KBD INTERRUPTS? 
; ;BRANCH IF NOT 

;;RE-ENABLE TTY KBD INTERRUPTS 
; sRETURN 

;;ECHO CHAR 

;3;CHAR < 0? 

; ;sERANCH IF YES 

3;;CHAR > 7? 

; ;BRANCH IF YES 

;:STRIP-OFF ASCII 

:3I1S THIS THE FIRST CHAR 

; ;BRANCH IF YES 

3sNO, SHIFT PRESENT 

33 CHAR OVER TO MAKE 

33 ROOM FOR NEW ONE. 
;3sKEEP COUNT OF CHAR 


;:;GET THE NEXT ONE 
s3TYPE ?<CR><LF> 
: sSIMULATE CONTROL -U 


9 ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


*CALL: 


2s: 


ROCHR 
RETURN HERE 

. MOV (SP), -CSP) 
MOV 4(SP),2(SP) 
TSTB asTKsS 
BPL 1$ 
MOVB 8$TKB ,4(SP) 
BIC @tC<177>,4(SP) 
CMP 4(SP), 423 
BNE 3$ 
TSTB asTKS 


::; INPUT A 
; ;CHARACTER IS ON THE STACK 
; }WITH PARITY BIT STRIPPED OFF 


3sPUSH DOWN THE PC 
; SAVE THE PS 


::;GET RIO OF JUNK IF ANY 
::IS IT A CONTROL-S? 

; ;BRANCH IF NO 

;;WAIT FOR A CHARACTER 


SINGLE CHARACTER FROM THE TTY 


SEQ 9078 


GLOBAL 
KDJLILA. 


021755 


AREAS MACY11 30A( 1052) 
MAC 20-MAR-84 11:19 


176752 
177600 
000021 
000004 
000004 


000040 


021710 
021720 


000177 
020522 
000044 
021706 
000015 


177777 
020525 


000004 
021710 


20 -MAR - 84 


020122 
053505 


6 / 


11:31 PAGE 79 


TTy INPUT ROUTINE 


43: 


2% 
@tC177,(SP) 
(SP)+,%21 
es 

18 
4(SP),0140 
Gy 
4(SP),0175 
44 

40 ,4( SP) 


SEQ 0079 


s3:LOOP UNTIL ITS THERE 
133:GET CHARACTER 

ssMAKE IT 7-BIT ASCII 
1331S IT A CONTROL -Q? 
s3If NOT DISCARD IT 
33YES, RESUME 

s3IS IT UPPER CASE? 
s;BRANCH IF YES 

33IS IT A SPECIAL CHAR? 
1 ;BRANCH IF YES 

ssMAKE IT UPPER CASE 
33GO BACK TO USER 


3 BS SSOOOOOEOEOEEEEEEEEOOEOEEEOEE66O600660000060600660606606006668686860086 


s*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


s@CALL: 


98: 


STTYIN: 
SCNTLU: 
SCNTLG: 
SMSUR: 


SMNEW: 
SAUTOB: 


SINTAG: 
. SBTTL 


IN ss INPUT A STRING FROM THE TTY 
RETURN HERE ssADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
3s TERMINATOR WILL BE A BYTE OF ALL 0's 
MOV R3,-(SP) s3SAVE RS 
MOV @sTTYIN,RS 33sGET ADDRESS 
CMP OSTTYINGS. ,R3 s;BUFFER FULL? 
BLOS 4$ 338R IF YES 
ROCHR 33GO READ ONE CHARACTER FROM THE TTy 
MOVB (SP)+,CR3) :3sGET CHARACTER 
CMPB 0177,CR3) 3331S IT A RUBOUT 
BNE 33% 33SKIP IF NOT 
TYPE » SQUES s3TYPE A ‘?° 
BR i$ s+;CLEAR THE BUFFER AND LOOP 
Po +: soln ssECHO THE CHARACTER 
Y ° 
CMPB #15,(R3)- 3 3sCHECK FOR RETURN 
BNE & 33L00P IF NOT RET 
CLRB -1€R3) ssCLEAR RETURN (THE 15) 
TYPE . $LF ss TYPE A LINE FEED 
MOv CSP )-,R3 ssRESTORE R3 
MOV (SP), -CSP) ssADJUST THE STACK AND PUT ADDRESS OF THE 
MOV 4(SP),2(SP) 88 FIRST ASCII CHARACTER ON IT 
MOV OSTTYIN,4(SP) 
RTI 3 3RETURN 
BYTE O ssSTORAGE FOR ASCII CHAR. TO TYPE 
BYTE O 33 TERMINATOR 
-BLKB 8. ssRESERVE 8 BYTES FOR TTY INPUT 
~ASCIZ /tU/<15><12> ::CONTROL “U” 
-ASCIZ /tG/<15><l2> ssCONTROL “G” 
~ASCIZ <15><12>/SWR « / 
-ASCIZ / NEW = / 
BYTE 0 s3AUTO MODE FLAG 
BYTE 0 ss INTERRUPT MODE FLAG 
TRAP DECODER 


§ 8 FSA OO OOO6666666006666066060660606000060600086060006006600000000000008 
s¢THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP INSTRUCTION 
s*ANMD: USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 


RBSYTA.ARE*® = aoAfa tag 3PG( $852? 20 MAR; AG, Aa284, PAGE 80 


4116 
4117 


4118 


022010 


022012 
022014 
022016 
022020 
022022 
022024 


022000 
020152 
020776 
020752 
021012 
02CS26 


000002 


af 


s*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WIit 


:*GO TO THAT ROUTINE. 


STRAP: MOV RO, -( SP) 33;SAVE RO 
MOV 2(SP),RO 33GET TRAP ADDRESS 
TST -C€RO) + sBACKUP BY 2 
MOVB C(RO),RO 33GET RIGHT BYTE OF TRAP 
ASL RO ;sPOSITION FOR INDEXING 
MOV $TRPADCRO),RO :s INDEX TO TABLE 
RTS RO 3:;GO TO ROUTINE 


s3THIS IS USE TO HANDLE THE “GETPRI” MACRO 


S$TRAP2: MOV (SP), -CSP) ssMOVE THE PC DOWN 
MOV 4(€SP),2¢SP) ssMOVE THE PSW DOWN 
RTI ssRESTORE THE PSw 
-MACRO SETTRAP A,B.MSG 


$$SET A,B, \<TRAP+$TRP>,\S$TRP, <MSG> 


A.B.C.0,COMNT 
SBTTL TRAP TABLE 


s*THIS TABLE CONTAINS THE paemiiata ADDRESSES OF 
:¢BY THE “TRAP” INSTRUCTION 


THE ROUTINES CALLED 


$TRAP2 
-ENOC 
. TIF Oe ess. 351 


. TIF ail” errant 


ssCALL =A TRAP -D(C) COMNT 





$TERM=. - $TRPAD 
TRMTRP 





. ENOM 
-SBTTL TRAP TABLE 


s#THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 


;*BY THE “TRAP” INSTRUCTION. 





$ ROUT INE 

3 “-—-—. «- «= « 

$TRPAD: .WORD $TRAP2 
ST YPE 3 :CALL=TYPE TRAP +10104401) TTY TYPEOQUT ROUTINE 
$TYPOC ;;CALL*=TYPOC TRAP +2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
$TYPOS ;;CALL*«TYPOS TRAP +3( 104403) TYPE OCTAL NUMBER (NO LEADING ZEROS’ 
STYPON ;;CALL=TYPON TRAP +4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
$TYPDS ;;CALL*TYPDS TRAP +S( 104405) TYPE DECIMAL NUMBER (WITH SIGN) 


D/ 
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4172 
4175 


022026 


022030 
022032 
022034 


021250 
021200 


021462 
021602 


112767 
112767 
000405 


112767 


155570 
175740 


156614 
000016 
000004 


156536 
000004 


$RDOL 
-SBTTL APT COMMUNICATIONS ROUTINE 


sGTSWR 


$CKSWR 
sROCHR 


com) 
a 


ss CALL -GTSWR 


3s CALL -CKSWR 
: ;CALL -RDCHR 
: CALL =RDLIN 


TRAP +6(104406) GET SOFT-SWR SETTING 


TRAP +7(104407) TEST FOR CHANGE IN SOFT-SwR 
TRAP +10( 104410) TTY TYPEIN CHARACTER ROUT INE 
TRAP +11(104411) TTy TYPEIN STRING ROUTINE 


3 § SSOSSSSODEEEEEEEESEEEEOEEEEEAEEEDREEEOOEEEOOEEEEEEDEEEEEEOEEOOES 


SATY1: 
SATY3: 


SATY4: 
SATYC: 


1$%: 


2s: 


3$: 


118: 


12s: 


SMFLG: 


MOVE 
HOvVB 


RTS 
-BYTE 


01,8FFLG 
01,8FFLG 

RO, -( SP) 

Ri, -( SP) 

SMFLG 

53 

- + la aciaeeaeid 
ee ee 


2, 
$ 


331O REPORT FATAL ERROR 
3310 TYPE A MESSAGE 


3310 ONLY REPORT FATAL ERROR 


33PUSH RO ON STACK 
33PUSH R1 ON STACK 
33SHOULD TYPE A MESSAGE? 
s3IF NOT: ist 

s sOPERATING UNDER APT? 
331 NOT: fe 

3:SHOULD SPOOL MESSAGES? 
s3IF NOT: BR 

33G'T MESSAGE ADDR. 

; ;BUMP RETURN ADDR. 
3;SEE IF DONE W/ LAST XMISSION? 
s3sIF NOT: WAIT 
3sPUT ADDR IN MAILBOX 
33F IND END OF MESSAGE 


33SUB START OF MESSAGE 

33GET MESSAGE LNGTH IN WORDS 
3sPUT LENGTH IN MAILBOX 
3sTELL APT TO TAKE MSG. 


s3PUT MSG ADDR IN JSR LINKAGE 
;;BUMP RETURN ADDRESS 

3sPUSH 177776 ON STACK 

::;CALL TYPE MACRO 


3:SHOULD REPORT FATAL ERROR? 
ssIF NOT: BR 
s sRUNNING UNDER APT? 
:3IF NOT: 
33 INISHED LAST MESSAGE? 
s3IfF NOT: WAIT 
3:GET ERROR © 
;;B8UMP RETURN ADDR. 
:sTELL APT TO TAKE ERROR 
;:CLEAR FATAL FLAG 
3sCLEAR LOG FLAG 
3sCLEAR MESSAGE FLAG 
33sPOP STACK INTO R1 
3sPOP STACK INTO RO 
3; sRETURN 
;sMESSG. FLAG 


SEQ 9081 


022 


022452 
022452 


177414 


20 -MAR -84 1:31 P 8 
APT C ICAT TONG ROUTINE 
SLFLG: .BYTE 0 
SFFLG: .BYTE 0 
.EVE 
APTSIZE=200 
APTENV=001 
APTSPOOL = 100 
AP TCSUP -040 
sERROR NUMBER TO THE APT ERROR ROUTINE 
SERROR: INC SERFLG 
SERROR 
ERRCNT 
(SP), #1002 
000106 07777, 3% 
(SP )+, S@SAVSP1 
lle aati 
000066 1%: @CSP), 3% 
(SP).101$ 
e2, (SP) 
022372 1003: &( SP) ,.80102$ 
1028: 0 
@2,(SP) 
»ERR1 
3$,-CSP) 
eERRO 
1018, -(SP) 
156366 23: ct 
JSR PC, SATY4 
3$: ‘ 0 
4$: BR 4$ 
5$: HAL 
RTI 
101$: j 0 
SPATCH:: 
: 10 
eo END 


cf 


SEQ NOR? 


33;3LOG FLAG 
:3FATAL FLAG 


83 COSESODESEOEESEEEEEEEAEDEEEESEEASEEEEEEEDEEDEADREREDREEAEEEEEOEEES 


sTHIS ROUTINE WILL INCREMENT THE ERROR COUNT AND THEN PASS THE UN TQUE 








TO BE REPORTED TO THE APT SYSTEM. 


s INCREMENT ERROR FLAG 

s00N‘'T LET IT GO TO ZERO 

s INCREMENT THE ERROR COUNT 

:IS ERROR FROM VECTOR AREA 

sIF YES THEN 

sREPORT AN UNEXPECTED TRAP 

;SAVE UNEXPECTED TRAP DATA 

s;AND RESTORE SP 

;ELSE 

sREPORT UNIQUE ERROR NUMBER TO APT 
sSAVE ERROR PC 

sGET OVER UNIQUE ERROR NUMBER FOR RETURN 


;TYPE ERROR MESSAGE 
;GET OVER ERROR MESSAGE 


; 
s;PUSH UNIQUE ERROR NUMBER ON THE STACK 
sTYPE OCTAL ERROR NUMBER 


2 

;PUSH ERROR PC ON THE STACK 

;TYPE THE ERROR PC 

sCHECK TO MAKE SURE WE‘RE IN APT MODE 
;IF YES THEN 

sGO REPORT ERROR TO APT 

sSTORAGE FOR ERROR NUMBER 

sLOOP HERE AFTER REPORTING ERROR TO APT 
sIF NOT APT THEN HALT 

sALLOW RECOVERY FROM HALT 


a 


GLOBAL AREAS MACY 1 20-MAR-84 11:31 P 84 SEQ 
-MAR - CROSS REFERENCE TABLE -- USER SYMBOLS 0065 


000000 
ABORTO 012214 2383 25090 
ABORT1 012402 2394 25710 
ACDW1 = 000000 576 
ACDW2 = 000000 576 


000000 
ADOTRP 001454 7360 840 869 
ADDWO = 000000 





AVECTi= 000000 576 
AVECT2= 000000 576 


G/ 


GLOBAL AREAS — MACY11 30A(1052) 20-MAR-84 11:31 PAGE 85 } 

KDJL1A.MAC 20-MAR-B4 11:19 CROSS REFERENCE TABLE -- USER SYMBOLS s€@ 0064 

BEVENT= 177546 4870 

ITO = 000001 3086 

BITOO = 000001 298 §=6 308 = 33304 

BITO1 = 000002 297@ © 307 

BITO2 = 000004 2960 306 

BITO3 = 000010 2950 305 

BITO4 = 000020 2940 §=6 304. 3009 —s«3025 

BITOS = 000040 2930 3303ts—«*533311 

BITO6 = 000100 292@ 302 

BITO7 = 000200 2910 §= 301 

BITO8 = 000400 290@ 300 2970 

BITO9 = 001000 289% 299 

BIT1 = 000002 3070 

BIT10 = 002000 2880 

BIT11 = 004000 2870 

BIT12 = 010000 2869 

BIT13 = 020000 285¢ 

BIT14 = 040000 2840 

BIT15 = 100000 2830 

BIT2 = 000004 306¢ 

BITS = 000010 3050 

BIT4 = 000020 3040 

BITS = 000040 3030 

BIT6 = 000100 3020 

BIT? = 000200 3010 

BITS = 000400 300¢ 

BIT9 = 001000 299 

BNO 012144 2382 439 24890 

BN1 012334 2393 42404 «= 25520 

BOARDT= 000001 1¢ 389 5538 637 668 

BPTVEC= 000014 3150 

CACHET= 000001 o Js 3188 206 538 623 640 653 659 668 765 809 810 

CCR = 177746 4810 7666 622 

CKSWR = 104407 41750 

COUNT 001040 6100 

CPEREG= 177766 4640 869836 861 3085¢ 3305¢ 3311 33276 

CPUTST= 000001 1@ 3=—_ 1195 538 634 663 824 3706 

CR =—s_ =_:000015 2230 8=— 653 659 663 668 670 673 3706 48=63714 «= 33805—S—s«38117 

CRLF = 000200 2249 493759 3=—s_ «3817 

DATRAM= 000001 1@ 810 

DCOUNT 001054 6170 

ODISP = 177570 230@ 86614 782 

DISPLA 001050 6140 7828 790s 

DISPRE 000174 524@ 790 

OSWR = 177570 2290 86613 781 

EMTVEC= 30 3180 = 770*)=Ss 7710 

ERRCNT 001044 6120 42416 

ERRMSG 001166 6590 

ERRNUM= 000321 4940 743 7460 849 8520 83=_ 897 900@ =: 903 906 89-913 9160 926 9296 
942 9450 8957 960@ 970 9730 §©=—_-983 9860 996 10¢9 10128 )=s 1021 
1024@ 61032 -:1035@ «61044 = 10478 §=61058)=—s«1061@ = :1065.—i(is«é106B@~=s«d1076—(‘<‘i«<‘279~Sisi«a10BSC*«idCBGG 
1091 =610949 §=61098 = 1101» 111081111 )=s 1115. s-1118@ )= 1125 sa28@ )«=s1132—Ss—s«a4a8S@~=s «11a 
1145 61149 0= 1152 = 11157, 1160@ «61184 Ss«1187@ »3=61192s«a1195@ =: 1200's«éai203@~=s«1208~Sté«<ii 
lel7 = =1220@ 1225 812280 1242 812450 1251 1254@ 1296 12999 1302 1305¢ 1310 
1515@ 1316 13199 1324 13270 1330 13330 1338 8 ©1341@ 1344 13470 1853 8§©18560 


GLOBAL AREAS 
KDJLLA.MAC 


001110 
001100 
000001 
000244 


*22£2646466 


172322 


MACY11 30AC1 
20-MAR-84 11:1 


a 20 -MAR - 84 
1359 1362¢ 1367 
1435¢ 1440 1443¢ 
1483 1486¢ 1489 
1554¢ 1557 1560¢ 
1621 1624¢ 1627 
1667¢ 1671 16740 
1736 1739¢ 1744 
1779¢ 1787 1790¢ 
1831 18340 1837 
1875¢ 1878 1881¢ 
1944 1947¢ 1955 
1996¢ 1999 2002¢ 
2068 20718 $2075 
2115@ 2118 2121¢ 
2165 2168¢@ 2172 
2278%@ 2288 2291¢ 
2352 2355¢@ 2359 
2453¢ 2663¢ 
2811 28148 +#£+2817 
30214 3033 3036¢ 
3186 3190¢ 3313 
3431¢ 3457 34606 
3516 35190 3524 
3559¢ 562 3565¢ 
3614 3618¢ 3622 
3657¢ 
492¢ 
311¢ 779 780¢ 
668¢@ 4255 
670@ 4258 
6080 
611¢ 741 7626 
21926 22164 223504 
24544 25994 26074 
27526 276364 2770« 
3586 
630¢ 893e 894 
629¢ 880 885 

1¢ 185 195 
4780 
523 4167 4168 
817 4173¢ 
4830 
2214 3757 3815 

1¢ 500 635 
3160 805 8064 
459¢ 
4604 
461¢ 
4620 
46390 
46490 
465¢ 
466¢ 
4370 


11:31 PAGE 86 
CROSS REFERENCE TABLE -- USER SYMBOLS 


H / 


13760 


14154 


1547 
2330 

27204 
2841+ 


1052 
1104 
668 


4176 


3970 


14214 


1581¢ 
2375¢ 
2723 

31034 


llel 
765 
4177 


4178 


17194 
24156 
273le 
3338 


1138 
3665 


14296 


1892 
2422 
2735 
3445 


3706 


GLOBAL AREAS 
KDJ11A.MAC 


KOPOR2 = 


172524 
7 


KDPOR3= 172326 


KDPDR4 = 
KDPORS= 
KDPDR6E= 
KDPOR?7 «= 
KIPARO= 
KIPAR1 = 
KIPAR? = 
KIPAR3= 
KIPARG= 
KIPARS= 
KIPAR6= 
KIPAR7«= 
KIPDORO= 
KIPDR1= 
KIPOR2= 
KIPDRS3= 
KIPOR4= 
KIPDORS= 
KIPDR6= 
KIPOR7= 
LF z 
LOOPIN 
MMTS10= 
MMTS11= 
MMTSlo2= 
MMTS13= 
MMTS14= 
MMTS15= 
MMTS16= 
MMTS6A= 
MMT S6B = 
MMTS6C = 
MMTS6D = 
MMU 


MMUERR 


MMUTRP 


MMUTST= seeeses UY 


64666 
42666 
#622664 
622666 
246446 
#22266 
tebe ae 
eeeese 
eee em 
#222666 
262664 


001306 
001213 


001460 


20- 


cccccecceccce 


3095 
653 


3010¢ 


3028 


Man be tists CO-MAR-RGss AgPeRENCE Role 


30396 


668 


Lé 


USER SYMBOLS 


3050¢ 


670 


30614 


673 


30926 


3706 


3301¢ 


3714 


3809 


3817 


7 fr) ~~ 
ss 


J/ 
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KDJ11A.MAC 
3970 
MMUTSL= ees0e00 U 830 
MMUTSO= eeeeee 855 
MMUTS3= eeee06 VJ 1165 
MMUTS4= seseee 1258 
MMUTSS= seseee6 VU 1496 
MMUTSG= eseeee 1540 
MMUTS7= seeeee VU 2185 
MMUTSB= seseee 2308 
MMUTS9= seeese 2368 
327¢@ 8086 
2852 2945¢e 
3130 32478 
482¢ 
3706¢ 
3690 3714¢ 
1¢ 
751 757¢@ 
3308 3322 33260 
3088 3198¢ 
U 3290 
750 752¢ 
2268 22738 
2274 2279¢@ 
2262 2267¢ 
756 758¢ 
2255 226084 
653¢ 809 
700 701 704 705 707 708 7260 
2845 2893¢ 
3126 
1¢ 
2846 29064 
3125 3221¢ 
3108 3132 3260¢@ 
727@ 730 
703 706 717¢ 
7180 721 
2850 29320 
2288 
322¢ 
2381 24684 
2392 2403 25320 
245¢ 
246% 
247¢ 
2484 
24984 
2514 
2520 
225¢ 226 33066 
226¢ 
317¢ 


1¢@ 635 3667 





IK / 
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KDJLIA.MAC 20-MAR -84 11:19 CROSS REFERENCE TABLE -- USER SYMBOLS 


RCSR = 177560 48890 


2195 22264 22604 2261 2279% 2292s 2293 2318* 2336+ 2337 23764 
24554 26004 2664 2662+ 3598 


2196 2227 2267 22804 2299 2319e 2343 2377 2442 24564 


2601+ 
2753¢ 2815 2827 

2197  2228¢ 2273 2261¢ 2320e 2349 2378 2448 2457¢ 2602¢ 2676 
2828+ 3592 


1615 1723 1749 1896 1923 2046+ 2073 
1606 1721¢ 1742 1894 1916 2044e 2066 


3706 





e772e¢ 27798 «27864 2793¢ 2800 2821 2987e 3073 3086+ 3100 3200 
3302e 3328 


SLOCO1 001032 605@ 2988+ 3074 3087e 3101 3201 
SRO = 177572 331¢@ 1504 1513 1522 1531 2995e 3016 30326 3043¢ 3054% 3065¢ 3070s 3084e 
SO97* 3198 3304+ 33260 36596 


SR1 * 177574 3320 


GLOBAL AREAS 
KDJLLA.MAC 

SR2 * 177576 
SR3 * 172516 
STACK «= OO1000 
START 001604 
STBOT * 001000 
STKLMT= 177774 
SWR 001046 
SWREG 000176 
Swo = 000001 
SWOO = 000001 
SWOL = 000002 
SWO2? + 000004 
SWOS += 000010 
SWO4 = 000020 
SWOS = 000040 
SWO6 = 000100 
SWO7 = 000200 
SWOS8 = 000400 
SWO9 = 001000 
SwWl = 000002 
SW10 = 002000 
SW11 = 004000 
SWl2 = 010000 
SWi3 = 020000 
SW14 = 040000 
SW15 = 100000 
SWe = 000004 
Sw3 = 000010 
Swe = 000020 
SWS = 000040 
Shits = 000100 
SW7 = 000 
Sw8s = 

Sw9 = 001000 
TAGRAM= 000001 
TBITVE= 000014 
TKVEC «= 

TMM16A 017214 
TMM16B 017054 
TMM16C 017110 
TMM16D 017144 
TMM16E 017200 
TMML6F 17202 
TM16A 017710 
TPVEC = 
TRAPVE= 000034 
TRTVEC= 000014 
TSMA 011214 
TSMB 011240 
TSMC 011254 
TSMMU1 1 
TSMMU2 002174 
TSMMU3 003550 
TSMMU4 004114 
TSMMUS 005210 
TSMMU6 005366 


2991 
768 


527 
1583 


781¢ 
789 


300964 


765¢ 
1586 


783 
815 


3542 
3619 
77364 


3025¢ 


3005 


7894 


3980 


3548 
3653 


30964 
3072 


80356 
3993 


36586 


L/ 


20 MAR Ba ot a 20-MAR -R6cs AéPeRENCE” TRELE -- USER SYMBOLS 


36606 


815 2970 3980 


4017¢ 


SEQ 9089 


M/ 


RDUt1 hae 20 MAR Ba Sacto 20-MARROss REFERENCE TABLE -- USER SYMBOLS 


TST10 

TST1i 007152 
TST12 007762 
TST13 © 910572 
TST14 §=—6.011256 
TST1S5) =: 011522 
TST16 §=—6.012450 
TST17 = OO 
TST2 002174 
TST20 013336 
TST21 013742 
TST22 014366 
TST23 015064 
TST24 016106 
TST2S O01 
TST26 016610 


TST7 005 
TS10 012762 
TS11 01 


TSOFIN 012450 
TYPOS = 104405 
TYPE = 104401 


o 


22860 
2395 24138 


2705 2710 
2774 2781 
3156 31674 
3350 33 
3638 

2209 22504 
23074 

25914 

41714 


3690 


2463 

2650 26584 

27160 

2788 2795 2802 28098 
33840 


3693 3762 3884 3953 3991 3992 


3995 


4008 


4019 


SEQ 9090 


4038 


N/ 


GLOBAL AREAS MACY11 30A(1052) 20-MAR-84 11:31 PAGE 92 SEQ 0091 

KDJ11A.MAC 20-MAR-84 11:19 CROSS REFERENCE TABLE -- USER SYMBOLS 
4087 4090 4094 4167@ 4252 4255 4258 

TYPOC = 104402 33994 4168@ 4257 4260 

TYPON = 104404 4170¢@ 

TYPOS = 104403 4169¢ 

TLOFIM O1 2653 26874 

TLILFIN 013336 2712 27444 

TI2FIN 013742 2805 28314 

TI3ZFIN 014366 2889 9¢ 

714 015524 3152 3172¢ 

TI4FIN 016106 2974 3161 3199 32890 

T1i5 016474 3345 3353 3362 34034 

T15SA 016556 3367 3371 3375 3424¢ 

TISFIN 016610 3379 3436¢ 

UDPARO= 177660 3719 

UDPAR1= 177662 372¢ 

UDPAR2= 177664 373¢ 

UDPAR3= 177666 3749 

UDPAR4= 177670 375¢ 

UDPARS= 177672 376¢@ 

UOPAR6= 177674 3770 

UDPAR7= 177676 378¢ 

UDPDRO= 177620 3494 15944 1904 

UDPDRi= 177622 350¢ 

UDPDR2= 177624 351¢ 

UDPDR3= 177626 352¢ 

UDPDR4= 177630 353¢ 

UDPORS= 177632 354¢ 

UDPDR6= 177634 355¢ 

UDPDR7= 177636 356¢ 

UIPARO= 177640 360¢ 

VIPAR1= 177642 3619 

UIPAR2= 177644 362¢ 

UIPAR3S= 177646 363¢ 

UIPAR4= 177650 364¢ 

UIPARS= 177652 365¢ 

UIPAR6= 177654 366¢ 

UIPAR7= 177656 367¢ 

UIPDRO= 177600 338¢ 17304 20544 

UIPDR1= 177602 3390 

UIPDR2= 177604 

UIPDR3= 177606 341¢ 

UIPDR4= 177610 342¢ 

UIPDRS= 177612 343¢ 

UIPDR6= 177614 344¢ 

UIPDR7= 177616 345¢ 

VIR1 014250 2851 29194 

VIRe2 015736 3131 323494 

VIR3 016054 3109 3133 32734 

XBUF = 177566 491¢ ; 

XCSR = 177564 490¢ 

SAPTHD 000204 547 553¢ 

SASTAT= seeaee 4212 4227 

$ATYC 022062 4183 4185¢ 

SATY1 022036 41814 

SATY3 022044 3747 4182¢ 

S$ATY4 022054 41848 4263 


GLOBAL AREAS 
KDJL1A.MAC 


$ROSZ = 


021754 
2050 


o 
~ 


021176 
00 


CHS aR 


021602 


#420266 


000010 


MACY11 3SOAC 
84 


i:1 


1052) 20-MAR- 
9 CROSS REFERENCE TABLE -- 


64 11:31 PAGE 93 


41090 
3781 


776 


3824 
38920 


37010 


3742 
3744 


3689 


4239¢ 
42390 


4212 


3807 


4019 


4190 
3749 


4240 


42216 


793 
4227¢@ 


4216 
12590 
28330 
39326 
3678 


4103 


38120 


4105 


4214 
4192 


42290 


615 


42206 
14970 
2635 


39436 
368264 


68 


USER SYMBOLS 

4261 

3742 

1541¢ 157S¢e 17130 188690 20360 
29618 2963 30770 %079 32900 
39690 

36836 3691 3704 


21860 
3292 


23090 
33320 


SE U M92 


236990 
542990 


C8 


GLOBAL AREAS ©O-MAR-84 11:31 


MACY11 30A( 1052) PAGE 94 SEQ 909% 

KDJL1LA.MAC 20 -MAR -84 11:19 CROSS REFERENCE TABLE -- USER SYMBOLS 

SRTNAD 020040 3703¢ 

$ROA = seee08 U 4178 

SSAVRE« eeee0e6 4178 

SSETLUP= 000126 5000 769 770 772 774 776 777 810 3682 3975 4109 

SSTLWP + 177777 5000 

$SVPC = 000204 5320 537 

SSWR = 160000 204 2050 777 836 861 1171 1264 1502 1546 1580 1718 1891 2041 
2191 2314 2374 2598 2694 2751 2640 2970 3084 3300 3337 3444 3674 
3682 3696 3702 3704 

$SWREG 001022 5890 803 

STESTN 001004 821¢ 835 860 1170¢ 12636 150164 15456 15796 1717¢ 1890¢ 204064 21906 
23156 2373e 2597¢ 269356 27506 28396 29696 29726 30836 32996 33366 34436 

$TKB 020510 3788 3795 38160 3973 3984 4001 4055 4061 

$TKS 20 3786 3793 3815¢ 3973 3982 3998 40226 4053 4059 

$TN * 000027 2040 831 8360 856 8619 1166 11716 1259 12640 1497 1502¢ 1541 15460 
1575 1580¢ 1713 1718¢@ 1886 189190 2036 20419 2186 219194 2309 23140 2369 
2374@ +#£«2593 25980 2689 26940 2746 27510 2833 28400 296i 29700 3077 30840 
3290 3 3332 33370 3439 34440 

sTPB 020514 38046 38180 

STPFLG 020521 3736 38220 

$TPS 020512 3802 3817¢ 

$s TRAP 021756 772 4119¢@ 

STRAPS 022000 41300 4166 

sTRP = 900012 4159¢@ 4168¢ 41696 41700 41710 41720 4173 41740 4175 41760 41770 4178¢ 

$TRPAD 022012 4124 4166¢ 

sTSTM 000210 556¢ 

STSTNU= 1 4930 

STTYIN 021710 4080 4081 4098 4102¢ 

STYPBN= seseee VU 4172 

STYPOS 020526 38e@ 4171 

STYPE 020152 37360 4159 4167 4209 

STYPEC 020364 3766 3773 3780 37850 4024 

STYPEX 020504 3810 3813¢e 

STYPOC 020776 3923¢ 4168 

$TYPON 021012 3922 3925¢ 4170 

sTYPOS 020752 3918¢@ 4169 

SUNIT 001012 583¢e 

SUNITM 000214 5580 

SUSWR 001024 590¢ 

$xOFF = 000023 3790 3817 

$xXON = 000021 3797 3817 

$$GET4:= 36960 

SOFILL 021175 39196 39236 3933 39660 

$40CAT 9000000 5180 

s = 022472 5030 519 523¢ 532 5330 5350 5370 545 5440 5460 5480 5609 561° 
565¢ 5660 6300 6400 6750 3704 37050 37180 3815 3816 3817 3818 
3819 3820 3821 3822 3825 3824 38250 38920 3973 41020 4103 4109 4110 
4111 42300 42700 

-SASTA= sesese VJ 4182 4185 

8x = 000204 5430 548 560 565 


KBOTIA.AAE > = 20 Athy 3286 $952? CO MARE RAs epee Pee 128i 


ERROR 


2965 
823 


834 
2749 


859 
2638 


830 
2745 
4224 


1169 
2968 


855 
2832 


4225 


1262 
3082 


1165 
2960 


1500 
3298 


1258 
3076 


1544 
3335 


1496 
3290 


D& 


-- MACRO NAMES 
1576 1716 
3442 
1710 1883 

942 957 
1106 1115 
1296 1302 
1432 1440 
1563 1569 
1693 1699 
1824 1831 
1955 4 
2087 
2269 2275 
2660 2666 
3055 3066 
3496 3506 
3614 3622 

942 957 
1106 1115 
1296 1302 
1432 1440 
15635 1569 
1693 1699 
1824 1831 
1955 1 
2087 
2269 2275 
2660 2666 
3055 3066 
3496 3506 
3615 3622 
1540 1574 
5351 3438 


1889 


17le 


2059 


1885 


2189 


2245 


2035 


2312 


2185 


2372 


2308 


SEQ 9094 


GLOBAL AREAS MAC Y 
KDJL1A.MAC 20 -MAR - 84 


- ABS. 


ERRORS DETECTED: 
CZKDKB/EN: ABS, CZKDKB .. SEQ/CRF /DOC/SOL/NL: 


022472 


11 350A 


3338 


0) 


4185 


856 
2835 
4168 


RUN-TIME: 297 115 5 SECONDS 
RUN-TIME RATIO: 941/418=2.2 


4187 


4169 


4208 


4170 


i” = TR Ross AEPERENCEST 


4171 


1497 
3290 


4171 


97 


ABLE -- 


4173 


831 
1715 
2746 
3334 


1541 
3332 
4173 


xe’ 


MACRO NAMES 
4175 4176 
833 856 
1886 1888 
2748 2835 
3439 3441 
1575 1713 
3439 
4175 4176 


4177 


1886 
4177 


TOC =SYSMAC .SML/ML ,CZKDKB.MAC/ML ,.KDJ11A.MAC 


2036 


2186 


2309 


2369 


SEQ 909 


2593 


c 
2s 


GLOBAL AREAS MACY11 30A( 1052) 20-MAR-84 11:31 PAGE 98 SEQ 9096 
KDJ1L1A.MAC 20-MAR-84 11:19 CROSS REFERENCE TABLE -- MACRO NAMES 


CORE USED: S2k (103 PAGES) 
DOCUMENT PAGES: 96 


